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Preface 


This publication describes the internal logic and specifi- 


cations of System/3 BASIC, a program product, for the . 


IBM System/3 Model 6. The manual is designed to 
satisfy the documentation requirements of support 
personnel responsible for maintenance of System/3 
BASIC. 

Section 1, “Introduction,” contains a general descrip- 
tion of the modes of operation, functions, and charac- 
teristics of the programming system and the machine 
configuration. 

Section 2, “Method of Operation,” describes the 
functional flow of the program logic and data. Illustra- 
tions and supporting text trace the functional flow of 
the stand-alone computing system from input, through 
processing stages, to desired results (output). The usage 
of primary data areas is emphasized. 

Section 3, “Program Organization,” describes how the 
programs and routines that comprise System/3 BASIC 
are interconnected, and describes the functions of com- 
ponents, Because of the interactive environment, func- 
tion level flowcharts are used extensively to describe 
complex programs, 

Section 4, “Directory,” contains a cross-reference 
table of all system components, for quick reference to 
System/3 basic assembly listings on microfiche. This 
section also defines source module labeling conventions 
and system equates. 


Section 5, “Data Area Formats,” contains detailed 
layouts of system data areas (communications area, 
directory formats, record formats, error-recording 
formats, parameter formats, etc.). 

Section 6, “Diagnostic Aids,” describes the main- 
tenance utility program, program temporary fix 
(PTF) commands, and other useful servicing information. 

- Section 7, “Object Program,” describes the interpreter/ 
compiler functions, including a method for laying out 
the contents of an execution-time disk dump-of virtual 
memory, the method for determining the contents of an 
execution-time core dump, and pseudo-machine-language 
formats, 

Appendix A, “System/3 Basic Assembler Language,” 
contains mnemonic operation code lists, instruction 
format descriptions, and an assembler instruction ref- 
erence table. 

Other publications related to this manual are: 


IBM System/3 Disk System Basic Assembler Manual, 
SC21-7509 

IBM System/3 Model 6 Components Reference Manual, 
GA34-0001 

IBM System/3 Model 6 System/3 BASIC Reference 
Manual, GC34-0001 

IBM System/3 Model 6 System/3 BASIC Operator’s 
Guide, GC34-0003 

IBM System/3 Model 6 System/3 BASIC Reference 
Handbook, GX34-0001 

IBM System/3 Model 6 System/3 BASIC Desk 
Calculator Reference Card, GX34-0002 
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Section 1. Introduction 


System/3 BASIC is a conversational, stand-alone, programming system oriented toward 
mathematical problem solving. It offers two modes of system operation: 


e BASIC 
e Desk calculator (DCALC) 


BASIC mode is programmed with a conversational programming language which is also 
called BASIC. The user develops program, data, and procedure files in an interactive 
environment; that is, he communicates with the system programs by entering (through 
the keyboard or the data recorder) BASIC statements, data-file lines, system commands, 
utility commands, and procedure-file lines. BASIC statements form BASIC programs, 
data-file lines specify the content of a data file, system and utility commands request 
immediate system action (except when entered as lines of a procedure file), and pro- 
cedure-file lines (composed of BASIC statements, data-file lines, and commands) specify 
system actions to be performed at a later time. : 

A BASIC statement is a single line identified by a line number. Lines may be entered 
in any order and are automatically collected into a program file and ordered with respect 
to line number. Each statement is syntax checked as it is entered. Syntax is the specified 
way in which words and characters are combined in program-statement lines, data-file 
lines, and command lines. When errors in syntax are detected, an error message is gener- 
ated and printed on the system printer. 

A BASIC program is completely compiled when execution is specified by a system 
command. Line numbers provide a simple program editing facility by allowing the 
replacement of previous lines with new or null lines, and the insertion of new lines into 
the file. Data files may also be created and modified in the same manner as program files. 
The user develops a procedure file by entering lines that begin with a line number and are 
followed by either a system or utility command, a BASIC statement, a data-file line or 
another procedure-file line. Procedure file lines are syntax checked when they are called 
for execution, not as they are entered into the work file. 

System commands are one keyboard line and are distinguished by lack of a statement 
number. They may be intermixed with program or data file lines in any manner. Each 
command is a unique keyword and an optional parameter list in a free-form format. Key- 
word commands have the following system functions: 


e File editing. 
e Initialization/modification of program execution. 


e File library creation and management (source programs and data files may be saved 
on disk in either a private or pooled library). 


e Disk utility functions. 


Programs in the system program file (system program area) analyze the file and com- 
mand lines, that the user enters, for syntax errors. These programs also perform the oper- 
ations specified by command lines and the command keys (located on the left side of the 
keyboard), 

The user has several ways to correct errors he made while entering BASIC statements, 
data-file lines, procedure-file lines, system commands, and utility commands. Also, these 
same procedures can be used to correct BASIC program errors that the system finds 
during program execution. 
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System/3 BASIC provides the user with execution time debugging aids: 


e Trace mode. 
e Step (one statement at a time) execution mode. 
e Display and change program variables during execution. 


e Interrupt and suspend execution at any point, perform other system functions, and 
later resume execution. 


System/3 BASIC also provides the user with several utility functions. These functions 
use utility commands and include operations such as system generation and disk initiali- 
zation, and they assign space on disks for work areas and libraries. 

System/3 BASIC provides to the IBM customer engineer a maintenance utility aid pro- 
gram with ten options for diagnosing and correcting problems in the system. Program tem- 
porary fix (PTF) commands (used to apply PTF patches), an I/O parameter list save area. 
and other maintenance features are discussed in Section 6. 


DESK CALCULATOR (DCALC) MODE OF OPERATION 


DCALC permits the user to add, subtract, multiply, divide, compute powers and roots, 
and perform many other mathematical functions without using a programming language. 
The numeric keys and the first eight command keys of the keyboard are used with 
DCALC. The mathematical functions in the system are requested by entering the name 
of the function through the typewriter keyboard. 


MINIMUM MACHINE CONFIGURATION 


The minimum machine configuration required to operate System/3 BASIC is as follows: 


e An IBM 5406 Processing Unit Model B2 (8k main storage) and the first eight 
command keys. 


e An IBM 5444 Disk Storage Drive Model 1 with one fixed disk and one removable | 
disk containing a total storage capacity of 2,457,600 bytes. 


@ An IBM 5213 Printer Model 1 with a 13-inch carriage and 132 print positions or a 2222 
Printer Model 1 with a 22-inch carriage and 220 print positions. 


SUPPORTED OPTIONAL DEVICES 


Optional IBM devices supported by System/3 BASIC are: 
e 5406 Processing Unit Model B3 (12k main storage). 


e@ 5406 Processing Unit Model B4 (16k main storage). 


e@ 5444 Disk Storage Drive Model 2 with one fixed disk and one removable disk 
(4,915,200 bytes). 


e Two 5444 Disk Storage Drives Model 2 with two fixed disks and two removable 
disks (9,830,400 bytes). 


e@ One 5444 Disk Storage Drive Model 2 with one fixed disk and one removable disk, 
and one 5444 Disk Storage Drive Model 3 with one removable disk (7,372,800 bytes). 


e@ 5213 Printer Model 2 (13-inch carriage, 132 print positions), 


e@ 5213 Printer Model 3 (13-inch carriage, 132 print positions with bidirectional 
printing). 
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2222 Printer Model 1 (22-inch carriage, 220 print positions). 


2222 Printer Model 2 (22-inch carriage, 220 print positions with bidirectional 
printing). 


5496 Data Recorder Model 1 (with the System/3 Model 6 Attachment). 


2265 Display Station Model 2 (this requires 12k main storage and eight additional 
command keys). 


129 Card Data Recorder (with the Card Input/Output Attachment for the System/3 
Model 6). 


This PLM (program logic manual) has two flowcharting techniques: 


1. 


Function level—-Shows the sequence of major internal objectives of complex 
programs (an example is Figure 3-22), Process blocks are keyed to the program 
listing with a label, if a label exists at that logical point. Process blocks contain 

a list of functions executed to accomplish the major objectives within the logical 
flow of the program, The language within the block is understandable at a level 
external to the program, so the flowchart serves as an index to the program listing. 
No attempt is made to maintain internal linkage between program label and phys- 
ical sequence of instructions if this would interfere with the most logical presenta- 
tion of the program. Every attempt has been made to create logical linkages for 
major objectives and to display the program on one page or facing pages. 

The on-page connector symbol is self-evident (refer to Figure 3-22); the off-page 
connector symbol usage is simplified, because these symbols refer only to another 
page of the same figure number. Reference (linkage) to other programs is made 
using a terminal flowcharting symbol containing the entry label for that program. 
Conventional—Shows the sequence of major internal objectives of complex sub- 
routines, IOCS routines, interfaces, error-logging overlays, etc. (an example is 
Figure 3-9), A predefined process block indicates a subroutine which is flow- 
charted elsewhere in this publication. The subroutine label is in the upper left 
corner; the flowchart figure number for that subroutine is in the upper right 
corner, On-page connectors, off-page connectors, and terminal symbols are used 
the same as on the function-level flowcharts. 


SYMBOLIC LABEL (PROGRAM COMPONENT NAME) 


A symbolic label (usually six characters) is used to identify each major System/3 BASIC 
program component. This label appears in the heading of each page in the assembly 
listing and on the microfiche. All labels within the same source module are prefixed by 
a character that identifies the type of source module. Section 4 contains a listing and a 
description of System/3 BASIC components. 
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Section 2. Method of Operation 


This section describes the functional flow of the program logic and data for System/3 
BASIC, Illustrations trace the functional flow from input, through processing stages, to 
output, emphasizing the use of primary data areas, 


LOGICAL DIVISION OF SYSTEM PROGRAMS AND COMPONENTS 
In this manual, System/3 BASIC is logically divided into six major groups of programs: 


e Control 

e Keyword 

e Utility 

e Compiler/loader 
e Interpreter 


e Desk calculator 


Figure 2-1 illustrates the primary relationships between these programs and the disk data 
files, This figure also illustrates primary I/O flow from system input to system output. 


Control 
This group of programs perform the following primary functions: 


e System initialization, or initial program load (IPL). 


e Linkage and services, for transient programs, that must be core-resident (system 
nucleus) at all times. 


e Acceptance and syntax checking of all system input while in conversational mode 
of operation, 


e Maintenance on the work file (#GUFUD). 

e Analysis of system commands and initiation of their execution (HECMAN). 
e Display of messages for errors and for operator communications, 

e Program interruptions, 


Keyword and Utility 


e Each system command is associated with a transient program that performs or 
initiates the particular function described by the keyword or utility command. 


e The keyword and utility programs are invoked by the command analyzer when the 
corresponding keyword (ALLOCATE, CHANGE, etc.) is entered. 


Compiler/Loader 


e Compilation of a BASIC language program is invoked by certain system commands. 


e The source program in the work file is compiled in a single pass over the source 
statements, 
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DISK ORGANIZATION 


e@ The loader resolves addressing and allocations in virtual memory (disk) that cannot 
be resolved during the single compiler pass. 


e@ Output from the compilation is a pseudo-machine-language program (object program) 
in virtual memory. 


Interpreter 
e This program produces the output from a BASIC language program by executing the 
pseudo-machine-language program in virtual memory, 


e Each pseudo-machine-code (PMC) instruction within the pseudo-machine-language 
program is analyzed, one at a time. 


e Subroutines perform the function specified by each PMC instruction. 
e These subroutines reside in both core and virtual memory. 


e A paging subroutine (part of the interpreter) performs a linkage function to load 
subroutines, PMC instructions, and data into core from virtual memory. 


Desk Calculator (DCALC) 


e This program accepts DCALC input from the keyboard, and then pages (transfers in 
sections) appropriate subroutines into core from virtual memory to execute the func- 
tions for the user. 


e This program uses the same concepts as that of the interpreter, 


e Error messages, operator communications, and I/O operations are provided by 
DCALC. 


The first four cylinders on every disk volume are reserved for the volume information 
cylinder (cylinder 0) and alternate data tracks (cylinders 1, 2, and 3), The volume infor- 
mation cylinder contains the volume label and volume table of contents, used for volume 
identification, and other pertinent information about the volume (refer to Figures 5-9 
and 5-10). A disk volume used for System/3 BASIC is optionally formatted with these 
primary disk areas (system files): 


e System work file (system work area) 
e System program file 

e System library file (file library) 

e Help text file 


e PTF file (program temporary fix) 

Refer to Figure 2-2 for an example of system file placement on disk and Figure 5-2 for 
the disk volume format. For details on file organization and data formats, refer to the 
Table of Contents or the Index for the particular subject you are interested in. 


Volume Label 

This reserved sector provides volume identification information, disk addresses, and size 
of System/3 BASIC system files on the volume. The sector is used by System/3 BASIC 
programs to locate these system files. The volume label also points to the location of 
the volume table of contents (VTOC). Refer to Figure 5-9 for the format of the volume 
label. 
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Figure 2-2, System Files, Example 


Volume Table of Contents 


The VTOC contains labels for all system files on the volume. Each label contains the 
name of the file, and disk extent information necessary to protect the area occupied by 
the file from other programming systems. Protection is handled by the track usage mask 
in the volume label. The VTOC is maintained by System/3 BASIC but it is not used to 
locate System/3 BASIC system files. Refer to Figure 5-10 for the format of the volume 
table of contents. 


Note: Do not confuse system files with user files in the file library. 


System Work File 


This system file, also referred to as the system work area, is allocated on cylinders 4 
through 9 on both volumes residing on drive 1. The file is accessed by system programs 
as a four-track logical file. When accessing the file, relative disk addresses are computed 
on the basis of 96 sectors per cylinder instead of 48. The system work area contains 
these four areas: 


1. Selected system programs (cylinder 4)—Selected system programs are copied here 
from the system program file to reduce seek time. 

2. Work file (cylinders 5 and 6)—This area is used for working with user program or 
data files. 
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3. Virtual memory (cylinders 7 and 8, and more than half of cylinder 9)—This area 
has a data length of 64k (256 sectors). 

4. Temporary disk work area (last 32 sectors of cylinder 9)—This area provides 
programs with disk working storage. 


The following selected system programs are copied to cylinder 4: 


#ECMAN—Command analyzer 
#GUFUD—Work file update/crusher program 
#SFSYN—BASIC statement syntax checker 
#SDSYN—Data syntax checker 
#ERRPG—Error message program 

#SFFIN 
#SFLOA 
#BOVLY-—Statement processor overlays 


Refer to “System Work Area Equates (@WKAEQ)” in the program listings for disk 
addresses and sector counts associated with the system work file. 


Execution-time disk I/O overlays 


System Program File 


This system file contains all system programs and related components, except those 
residing on the volume information cylinder (cylinder 0). All of the programs and com- 
ponents in this file are at fixed locations, relative to the first sector allocated for the file. 
None can be deleted. from, or relocated in, the file. The first component in this file is a 
directory containing the relative disk address, sector count, and core load address of all 
components in the file, but this directory is not used by the system to locate the com- 
ponents. It is used for finding addresses of components when PTF commands are issued. 
(See Figure 5-29 for the format of a directory entry.) Relative disk addresses, sector 
counts and core load addresses of system components are assembled in the programs when 
and where they are needed. The starting disk address of this file is located in the volume 
label (see Figure 5-9), 


System Library File 


This system file, also referred to as the file library, contains space for storing user pro- 
grams and data (see Figure 5-11). 

Each grouping of user program statements or data statements stored in this library is 
called a user file and has an associated filename. The user files are accessed by the use of 
filename directories (Figure 5-14) and a single password directory (Figure 5-13), The 
password directory contains one password for each filename directory in the library. 

Two reserved passwords are always present in the password directory. These reserved 
passwords are * (one-star) and ** (two-star), The user of the system will refer to these as 
one-star library (or pooled) and two-star library. These two passwords point to a direc- 
tory of filenames as do the other passwords (see Figures 5-11 and 5-13). 

The system library file also contains a null directory (Figure 5-12), This directory has 
entries pointing to all unused areas in the file. When the file is packed, there is only one 
entry, pointing to one null area at the end of the file. The null directory occupies the 
first sector allocated to the system library file. The starting disk address and size of this 
file are located in the volume label. Refer to Figure 2-3 for the organization of the system 
library file and its directories, 

Refer to ““Record Format” for the format of user program-generated and keyboard- 
generated files in the system library file. Program-generated files are considered as one 
record without a line number. This single record is written into sequential disk sectors 
as it is created by the program. No file index table (FIT) is generated for program- 
generated files. 
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Figure 2-3, Organization of System Library File, Example 


Help Text File 


This system file (refer to Figures 5-21 and 5-22) contains all of the help text accessed by 
the HELP keyword program. This file is organized with an index starting in the first 
allocated sector. The general organization of this file is the same as that of the work file. 
The starting disk address of this file is located in the volume label (Figure 5-9). Refer to 
program listings #T1HEL, #T2HEL, etc., for the content of the help text file. 


PTF File 


This system file, if present, contains program temporary fixes to be applied to other sys- 
tem files as they are shipped from the IBM Program Information Department 

(PID). These PTF’s may be applied by an IBM customer engineer. The starting disk 
address and size of this file are located in the volume label (Figure 5-9), 


Work File 


This is the work file referred to during system operations. It holds the current program 
or data file being entered or operated upon by the operator. The work file is logically 
addressed forward. All of cylinders 5 and 6, in the system work area, are allocated to the 
work file. 

Both program-generated files and keyboard-generated data files have the same internal 
organization. A file consists of two parts: 


1. File index table (FIT)—Used to randomly access the data records using the line 
number. This table can be from | to 3 sectors in length depending on the size of 
the data portion of the work file (see Figure 5-16). The first three sectors of the 
work file are always reserved for FIT. 
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VIRTUAL-MEMORY CONCEPT 


2-8 


2. Data area—Contains the data records (lines) in logical order with respect to line 
number. This portion of the file can be from 1 to 189 sectors in length. 


All sectors of the work file are contiguous, including the index. The I/O information 
record (file directory 1, Figure 5-17) resides on cylinder 4, for a program file occupying 
the work file (see Figure 5-15), but is placed between the FIT and the data area if the 
file is copied (saved) to the file library. 

All of the user program and keyboard-generated data files in the system library file 
were at one time saved from the work file. The format of user files in that library is the 
same as the format of the work file. 


Note: The data portion of the file is organized into disk blocks (sectors). Record or line 
refers to a logical data segment as opposed to a physical disk block. 


Virtual memory (VM) is a concept that uses disk to logically increase the size of the 
object program beyond the core capacity of the system. The VM concept also allows 
the core capacity of the system to be increased with no effect on the object program 
except for increased throughput of the system. The disk area occupied by virtual 
memory is cylinders 7 and 8, and more than half of cylinder 9 in the system work area. 
This area is a logical four-track file with a data length of 64k (256 sectors). 

Sections of the object program are brought into available core from VM on an as- 
needed basis. These sections are referred to as pages. Each page is 256 bytes in length. 
The available core (core paging area) is divided into pages (Figure 2-4) which contain 
machine executable codes or data, as required for the execution of the object program. 
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Figure 2-4, Virtual Memory Concept 


The larger the core storage (core paging area), the less disk I/O activity occurs and the 
faster the object program is executed. Speed depends upon the actual size and the pre- 
cision of the object program in relation to the size of the core paging area. Core config- 
uration and relative paging area are discussed in detail in “Expanded Core Utilization” 
(Section 3). Detailed specifications of virtual memory and references to core paging are 
given in Section 7, 
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PSEUDO MACHINE LANGUAGE CONCEPT (PSEUDO OBJECT PROGRAM) 


A pseudo machine language (object program) concept speeds the compilation time of a 
user program, It reduces the quantity of instruction output by the compiler and elimi- 
nates the necessity for an assembly pass or passes over the output instructions. 

The pseudo instructions that make up the pseudo machine language (object program) 
invoke the execution of preassembled machine-language execution subroutines to per- 
form the functions indicated by the pseudo instructions, This concept (Figure 2-5) is 
similar to the emulation of an instruction set foreign to the object machine, or the 
execution of machine instructions by hardware microprogramming. 
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Figure 2-5, Pseudo Machine Language Concept 
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The pseudo machine language for System/3 BASIC contains pseudo instructions 
(Figure 3-169) to perform (1) arithmetic operations such as exponentiation, square 
root, trigonometric functions, logarithms, etc.; (2) array processing operations such as 
matrix multiply, inversion, transposition, determinant, etc.; and (3) I/O operations such 
as GET, PUT, PRINT, etc. All arithmetic operations are performed in either standard or 
long precision floating point arithmetic. Character (EBCDIC) data format is also proc- 
essed by particular pseudo instructions. 

The preassembled machine-language execution subroutines and their control program 
are referred to in this manual as the interpreter. The execution subroutines that are 
used least often are located in virtual memory (Figure 2-6). The pseudo machine lan- 
guage object program is generated by the compiler (and loader) and executed by the 
interpreter (Figure 2-5). Pseudo machine instructions are referred to in some areas of 
this manual as pseudo machine code (PMC) (refer to Figure 3-169). Detailed specifica- 
tions of the object program are given in Section 7. 
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Figure 2-6. PMC and VM Concepts Combined 
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RECORD FORMAT 


Data records in either the work file or the file library are variable-length records corres- 
ponding to one keyboard line. A record consists of one or more segments. A segment is 
the portion of a record contained in one disk block. Records are packed contiguously in 
the file and span disk block boundaries. A record spanning two disk blocks consists of 
two segments, Every segment is preceded by a segment descriptor field (SDF). Only the 
first segment contains the line number and statement type code. A program-generated 
data file has no line number or segment structure. 

Refer to Figure 5-15 for the structure of a sample BASIC program file. A data file 
does not contain a file directory 1 record. Note that relative data blocks 04 and 05 are 
not in physical sequence. The line numbers (LINE) in the file index table entries are in 
ascending line number order allowing the relative data blocks (DB) to be referenced in 
logical order. 


FILE DIRECTORY 1 (1/0 INFORMATION RECORD) 


This directory contains information, specified by ALLOCATE system commands, 
defining the data files referenced in the GET and PUT statements of a BASIC language 
program. This directory is associated only with a program file. For a program file in the 
work file, this directory resides on cylinder 4. When a program file is saved in the file 
library, this directory is placed between the FIT and the data blocks of the program file. 
Refer to Figure 5-17 for the file directory 1 format. 

The first 8 entries of this directory occupy the first page in virtual memory during 
execution of the BASIC program. A maximum of 4 additional entries can be placed in 
virtual memory, by the program #LOADR, at a variable location. 
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Section 3. Program Organization 


This section divides System/3 BASIC into these major groups of program components: 


e Control programs 

e Keyword programs 
e Common subroutines 
e Utility programs 

9 Maintenance utilities 
e Compiler 

e Loader 

e@ Interpreter 


e Desk calculator 


For details on source module labeling conventions and system equates, refer to Section 4, 


System/3 BASIC control programs are defined under the following headings: 
e System initialization—IPL 


e System nucleus 
e Error message program—#ERRPG 
e Program interruption processor-#EXMSG 
e Work file update/crusher-#GUFUD 
e Command analyzer-#ECMAN 
e Command key processor-#EFKEY 
e BASIC statement syntax checker-#SFSYN 
e Data syntax checker-#SDSYN 
| e@ Procedure line checker—#SPSYN 
@ Conversational I/O routines—#DPRIN, DPRINT, DEPRES 
| e Procedure file line processor—#GRAPR 
e Card reader I/O routine-#DREAD 


e Maintenance program load trace—#ZTRAC 


System Initialization—IPL (Figure 3-1} 
IPL is accomplished by three program components: 
e Bootstrap loader-#MLOAD 


e Interface routine; part of the system nucleus at IPL time—MOPPET 
e Nucleus initialization program residing in the system program file—#MIPPE 


Program Organization 3-1 
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IPL Bootstrap Loader—#MLOAD (Figure 3-1) 


e This program is read from cylinder 0, head 0, sector 0 of disk when the program load 
switch is operated. 


e #MLOAD first relocates itself to high core and then reads the system nucleus into low 
core (X‘0000”) from cylinder 0, head 1, sector 0. 


e #MLOAD places a one-byte indicator at label $IPLDV, indicating the disk IPL’d 
(X‘00’ for R1 and X‘01’ for F1). 


e If no system program file exists on the IPL’d volume, a hard halt occurs. 


IPL Interface—MOPPET (Figure 3-1) 
e This routine is loaded by #MLOAD as part of the system nucleus. 


e The routine reads the volume label sector from the IPL’d disk, calculates the system 
program file address, and loads the main nucleus initialization program, #MIPPE. 


e@ MOPPET resides immediately following the nucleus at label SENDNU. 


Nucleus Initialization Program—#MIPPE (Figure 3-1) 


e This program loads #DPRIN—which consists of the matrix printer I/O control 
routine, or MP IOCR (DPRINT), and the keyboard IOCR (DEPRES)—at core 
address X‘0700’. The keyboard input line buffer overlays MOPPET (IPL interface). 


e System configuration is checked for validity by calling machine configuration 
(MCNFIG). This subroutine tests all devices specified in the configuration record 
for presence on the system. 


e The core expansion factor is set in the nucleus communications area. 


e@ The cathode-ray tube (CRT) IOCR is loaded into high core by the MCNFIG sub- 
routine if the CRT is present in the configuration. 


e The correct keyboard table is loaded by MCNFIG into the three keyboard JOCR’s. 


“ @ Margin widths for the matrix printer are set to the hardware specifications by 


MCNFIG. 


e The volume labels are read from all mounted disk volumes. IPL is terminated with 
hard halt 2345 if R1 does not have a standard System/3 volume label. Refer to 
“Halt 2345” in Section 6. All volumes other than R1 are assumed to require 
initialization if they do not have a standard volume label. 


e The volume-ID table, which is located in the nucleus communications area, is 
built for all mounted volumes. 


e The work area and bad-line buffer are cleared if they are present. 


e Output is switched to the CRT if the matrix printer fails while the operator is 
requesting the configure option. 


e Allscratch file entries left in the VTOC by co-resident disk system management 
programs are deleted. 
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#MLOAD 


READ SYSTEM NUCLEUS AND I/O ROUTINES 
INTO LOW CORE 


. Hardware reads #LOAD from cylinder 0, head 0, 
sector O, into the first 256 bytes of core and 
branches to address X’0000’. 


. #MLOAD relocates itself to X‘|F OO’ and branches 
to X‘IFOO’. 

. Read system nucleus into core at X’0000’. A disk 
error causes a soft halt. 

. Branch to MOPPET, the IPL interface resident in 
the nucleus. 


MOPPET 
INTERFACE TO MAIN IPL PROGRAM 


. Set console interruption address to $CIENT routine 
(Figure 3-10). 

. Read volume lable from IPL'd disk using $DISKN 
(Figure 3-7). 

. Calculate disk address of system program file. 

. Exit to $RLOAD to load #MIPPE at X‘OCOO’ 
from the system program file. 


#MIPPE 
Main IPL Program 


#MIPPE 


SYSTEM CONFIGURATION 


Issue carriage return to initialize MP to the left 
margin. 

. Read #DPRIN (DPRINT and DEPRES) inte core 
at X'0700’. 

. Configure system. Call $DISKN (Figure 3-7) to 
read configuration record from F1, and call 


$SPRNT (Figure 3-9) to print messages to operator. 

. Call DEPRES (Figure 3-30) to enable keyboard input. 

. Wait for CONFIGURE command or program start 
key, 

. Test configuration for validity and load #DSPLY 
(CRT |OCR} to high core if CRT is present. 


READ ALL VOLUME LABELS 


1, Call $DISKN (Figure 3-7) to read in all the volume 
labels of all mounted disks. Terminate IPL with a hard 
halt if the volume label on R1 does not have a valid 
label identifier (C’'VOL’ or X'ABCDEF’). 

2, Move the volume label and library file addresses to 
the nucleus communications area. 

3. Check that the system work area is present on F1 
and R1, 


as MOPPET \ 


“NX 
iy ‘“N 
“ {nput Line Buffer 
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#DPRIN 


\ | #Mippe> 


#GUFUD 


PROCESS DATE 


. Ask for date using $SPRNT (Figure 3-9). 
. Call DEPRES (Figure 3-30) to enable keyboard 
input. . 

. Modify instruction at X‘0000’ for a branch to 
$PAUSD (FE aid). 

Move user supplied date to nucleus communica- 
tions area. 

. Set disk addresses for #GUFUD and #ERRPG in 
the nucleus, 


ao ® © N= 


System 
Work Area 
OK 


#ERRPG 
Figure 3-17 
Via $CAERK 


Set 
Conversational 
Mode Indicator 
In Nucleus 

Communications 
Area. 


#GUFUD 
Figure 3-22 - 
Via $CARPL 


BR1038A 


Figure 3-1, System Initialization (IPL) Flowchart 
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One of the following modes is entered at this point: 


e Conversational mode (4GUFUD, work file update/crusher program) is entered, by 
#MIPPE, if the system work area is present on both volumes mounted on drive 1 
and is set to the current release level. #GUFUD may be entered via the error pro- 
gram if an error message is printed (F2 not initialized, etc.). 


© Utility mode (HERRPG, error program) is entered if the system work area is not present. 


System Nucleus 


The system nucleus is the core-resident portion of System/3 BASIC. It contains a system 
communication area, the physical disk IOCR, and various interface routines for other 
system functions. Figure 3-2, a core map of the system nucleus, shows the components 
and their functions. 


NQUIRY ($CIENT, $UNMSK) 
(inquiry request routine) 


BR1039 


Figure 3-2, System Nucleus Core Map 
Resident Disk Physical |OCS—DKDISK, $DISKN (Figure 3-7) 
e DKDISK is divided into two main sections: 


1. Call—for normal I/O execution. 
2. | ERP—error recovery procedure. 


e@ DKDISK is core resident in the system nucleus and performs the physical disk 
operations of read, write, verify, and seek for both drives. 


e A special wait function is provided which allows a calling program to be delayed 
until the last logical read or write operation for either drive is complete. 


e The calling sequence for DKDISK is: 


B $DISKN 
DC AL2(DPL) DPL is the address of the disk parameter list (Figure 3-3). 


e@ No checks are made for validity of the DPL parameters. The calling program must 
ensure that the drive, disk address, etc., are valid. 
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e Hardware errors are automatically handled by error recovery procedures in the disk 
1/O control system (IOCS) (Figure 3-4). No error returns are made to the calling 
program. 


Disk Parameter List (6 bytes) 
Disk Address Data Area Address 
Count 


X’00'- Seek 
X’01'- Read 
X'02'- Write 


Cylinder Number 


The table below shows the Head Number 

head, sector, drive, and 
Sector Number 

volume that are selected : 

for each value that can be Drive ID (off = 1, on = 2) 

contained in byte 2. Volume ID (off = removable, on = fixed) 


Head 0 Head 1 


Sector 
fafa [ofel myo ol a 


i?) 
1 
2 
3 
4 
5 
6 
7 
8 
9 


Notes: 


1, Bytes 3-5 are not 
used for a seek 
function, 


2. Bytes 1-5 are not 
used for a wait 
function. 
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Figure 3-3, Disk Parameter List (DPL) 


Physical disk addresses are required, but translation of defective track addresses to the 
assigned alternate track address is performed automatically by the routine. Any initial 
seek required to access the specified cylinder is automatically performed by the IOCS. 
If a single logical read or write operation crosses a cylinder boundary, the IOCS auto- 
matically performs the seek to the second cylinder and completes the operation when 
the next call to the IOCS is made. Control remains in the IOCS during the succeeding 
cylinder operations. A read or write operation automatically crosses track boundaries 
on one cylinder without subsequent IOCS calls. 
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Error Recovery Procedure 
Byte} Bit 


Hard halt; no recovery attempted, 
Retry operation once; then hard halt, 
Hangs on retry SIO until drive becomes ready, 


Unsafe 
Equipment check 
Intervention required 


Overrun Perform a read-|D to determine if: 
No record found 

Track condition check 
Missing address marker 


Data check 


e Seeked to correct operative track-retry as read, 
verify, or write error (below). 


eooorfr!toon 


Seeked to wrong track—recalibrate and retry 
operation. 


Accessing a track flagged defective—seek to 
alternate and retry operation. 


Accessing sectors beyond the end of an alternate 
track—seek to next sequential primary track and 
continue operation. 


Retry as read, verify, or write error, 
e Write error—retry write seven more times. 
Verify error—rewrite and verify seven more times. 


Read error—16 rereads performed with each seek 
and 16 seeks are tried (256 read errors before hard 
halt). 


Seek check 7 Recalibrate and retry seek 15 more times—if seek is 
successful, retry as read or write error (above). 


Seek to next sequential cylinder and continue operation. 


Unit check, but none Hard halt; no recovery attempted. 
of above 
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Figure 3-4, Error Recovery Procedure (DKDISK) 


For example, consider a call specifying a read operation of 30 sectors starting at sector 
22, track O of cylinder 43, when cylinder 10 is currently accessed. The IOCS initiates a 
seek to cylinder 43, queues the read operation, and returns control to the calling pro- 
gram. The read of sectors 22 and 23 (0-23 on cylinder 43) is automatically performed 
without returning control to the IOCS. A subsequent IOCS call allows the IOCS to per- 
form the seek and read of the second cylinder. 

At the termination of a write function, a verify is automatically performed by 
DKDISK. 


Error Recovery Procedure (ERP) Section: An ERP section is contained within DKDISK. 
If the operation is unsuccessful after a specified number of retries, the routine comes to 

a hard halt and an error code is displayed. The system can be restarted only by an IPL. 
Figure 3-4 shows the error recovery procedures in DKDISK, Figure 3-5 shows an example 
of a switch to an alternate track in DKDISK, and Figure 3-6 shows the disk control field 
(DCF) format. 
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Operative Primary Track 


(| io {sector 22{ 10 ‘| sector 23] 
[TooToo [oe] beta [oo]oafoc] dae | 


Assigned Alternate Track 


[te [sero [| | art 
[orf oayoo {pate [or [oafoa | Dawe — 


Flag Byte Definition 


Defective Primary Track 
eo 
[certape [ Gorosse [02 [ox [00] cartnor 


Flag Byte Definition 


Operative Primary Track 
| 1D {sectoro | wD Sectors 


Fsoon Tso | vas [oo [on]ee] one { 


Flag Byte Definition 


Transfer 2 sectors to core. 
ERP seeks next cylinder. 


Events 


Seek to, and read, requested track. 
Unit check, end of cylinder. 


DKDISK does not know track is defective, 
1D of sector 0 is invalid. 
Alternate assigned by disk initialize. 


Seek to, and read, next track. 
Unit check, no record found. 
Read ID and check flag. 


Seek to, and read, alternate track. Transfer 24 sectors to core. 


Seek to, and read, next primary Transfer last 2 sectors to core. 


track. Operation complete. 


Data Tracks 
———-—_ 
Primary Alternate 
(cylinders 0,4-202) (cylinders 1-3) 
ker | a 
Operative Defective Operative Defective 
X‘00’ X'02' X'01' X‘03' 
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Figure 3-5. Switch to Alternate Track (DKDISK), Example 
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Head 1 
(byte 2 
_ value) 


$DISKN 


DKDISK 


Wait and 
test previous 
operation 

for errors, 


Previous 
Operation 
Write 


Disk Control Field (4 bytes) 


O—Flags 1—Cylinder 2—Head and Sector 3—Number of Sectors—1 


Defective Track 
Alternate Track 
Cylinder towel 

The table at the left shows 

the head and sector that Read Numiaan 

are selected for each value | Sector Number 

that can be contained in Forward Seek 

Number of Sectors to be 


byte 2. (6 and 7 must be 
zero if not a seek-op) 


Transferred Minus 1 
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Figure 3-6. Disk Control Field (DCF) 
Yes 
DKERP1 
Sense error 
No status and 
perform 
appropriate 
DKO180 ERP. 
Is 
This Yes 
Operation 
Walt 
Verify ue 
previous 
write; wait; 
then test 
for errors, Start N 
Wie) . 
operation, 
Hard Halt 
DKO245 
Yes Errors No 
to Log 
ee Return to 
$ERLOG Calling 
Figure 3-9 Program 
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Figure 3-7, Resident Physical Disk IOCS (DKDISK, $DISKN) Flowchart 
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1/0 Error Logging Routine—NERLOG, $ERLOG (Figure 3-9) 


e NERLOG is used for recording I/O errors in the outboard record (OBR) and 
updating the statistical data record (SDR). Refer to Figure 3-8. 


e The error history log entry ($HISTE) in the nucleus communications region must 
be set up by the calling JOCR. Refer to Figure 5-1. 


e After setting the proper entry at SHISTE, the calling sequence to store the entry 
to disk is: 


B $ERLOG Branch if disk error. 
B $DISKN Branch if other than disk error. 


DC AL2($WAITF) $WAITF is the address of a disk parameter list containing a wait 
function code (Figure 3-3). 


e Ifthe I/O error occurred while on the interruption level, $ERPND is set and the 
error is logged upon the next entry to DKDISK. 


e NERLOG contains two sections: 


1. Call section—This is core resident within the system nucleus and used to 
modify DKDISK, save five sectors of core, and load the overlay section 
into this saved area. 

2. Overlay section—This is brought into core at the saved area to update the 
OBR and SDR, and generate a hard halt if a system unrecoverable I/O 
error is indicated. 


Disk lOCR 
NERLOG Call Section 


Remainder of Nucleus 


Error Logging 
Work Area 
(cylinder 0, head 0, - 
sectors 4 to 8 

on R1) 


‘X'0700' 


X'0C00' 


Program Area 
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Figure 3-8. NERLOG Core Map 


System Communication Area—NUCLES (see Figure 5-1) 


e NUCLES provides for communication between system programs. 


e It contains indicators, work areas, and core and disk addresses used by the entire 
system (refer to @FXDEQ in system equates). 
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Interface to System Printer IOCR—NSPRNT, $SPRNT (Figure 3-9) 
e NSPRNT is used to call the device designated as the system printer (CRT or matrix 
printer). 


e NSPRNT decides which device is to be used and branches to the corresponding 
IOCR. 


e The calling sequence to print a line on the system printer is: 


B $SPRNT 
DC AL2(PPL) PPL is the address of the print parameter list (Figure 5-23), 


The source module consists of one load IAR instruction located in the nucleus, This 
instruction loads the address of the IOCR assigned as system printer from the $PRDEV 
field in the system communication area. This address is that of DSPLYN for CRT only, 
and CRT with matrix printer; or DPRINT for matrix printer. A branch to $SPRNT loads 
the IAR, effectively causing a branch to the IOCR. The calling sequence passes the 
address of the print parameter list (PPL). This list is detailed in Figure 5-23. 


Error Program Interface—NCAERK, $CAERK (Figure 3-9) 
e NCAERK is an interface to the error message program (#ERRPG). 


e The error message program is loaded to core and executed. 


e No control information is transferred to the routine. 
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NOP 
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$ERLOG 
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Save core 
where overlay 
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$BLOAD 
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volume 
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on Ft, 
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Error 
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NER750 


Hard Hait 


Reset 
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$DISKN 


Start core 
restore, 


Return 
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resident 
section, 


NER100 
$DISKN 


Walt for 
core restore 
complete, 


Begin 
NERLOG 
overlay. 


Return to 
Calling 
Program 


$SPRNT $CAERK 


NCAERK 
$BLOAD 
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MatrIx 
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System 


Printer Load error 


program at 
X‘0CO0'” 


DPRINT 
Figure 3-29 


CRT or Both 


#ERRPG 
Figure 3-14 


DSPLYN 
Figure 3-32 
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Figure 3-9. Printer and Error Program Interface ($ERLOG, $SPRNT, $CAERK) Flowchart 
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Inquiry Request Routine—NQUIRY, $CIENT, SUNMSK (Figure 3-10) 


e This routine aborts the current operation (if the inquiry request is unmasked) and 
reloads the work file update/crusher program (HGUFUD). 


e An entry point ($UNMSK) is provided for unmasking and aborting if an interruption 
occurred while masked. 


e Ifthe function is aborted, the program interrupted indicator ($INRPT) is set. 
e Entry points: 


1. $CIENT—Entry for interruption processing (entered only when on interruption 
level). 

2. $UNMSK—Entry to unmask inquiry request (IR). To mask IR, it is necessary 
to move X‘80’ (equated to @NOP) to location $CIMSK within the IR routine. 


e Exits: 


1. IRunmasked—Exit is to $CAIPL. 

2. IR masked—Condition is set for suspended IR and return is made to the inter- 
rupted program. 

3. | $UNMSK finds no suspended IR—Return is to the calling program. 

4, Suspended IR—Exit is to $CAIPL. 


e No error procedures are provided. 


Abort Current Operation Routine—NABORT, $CAIPL, $CARPL, $CABLD 

(Figure 3-10) 

e This routine aborts the current operation and/or reloads the work file update/crusher 
program (#GUFUD). 


e Ifentry occurred during execution (via IR), the program interruption processor pro- 
gram (#EXMSG) is loaded instead of #GUFUD. 


e Entry points: 


1.  §$CAIPL—Entry sets indicators for keyboard entry and no suspended IR and 
loads #GUFUD or #EXMSG. 

2. $CARPL—Entry sets indicator for no suspended IR and loads #GUFUD or 
#EXMSG. 

3. | $CABLD—Entry loads #GUFUD only; no indicators are modified. 


Entry to $CAIPL first resets the input from the keyboard and turns off the no-list indi- 
cator. $CAIPL then falls to $CARPL which enables IR. The execution indicator is then 
tested, and if on (indicating execution in process), #EXMSG is loaded and executed via 
$PAUSD. If execution is not in process, $CABLD is branched to, which calls $BLOAD 
to load and execute #GUFUD. 
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Program 
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NCABLD 


$BLOAD ‘3-14 
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at X‘0C00’ 


#GUFUD 
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Figure 3-10, Abort (NABORT, $CAIPL, $CARPL, $CABLD) and Inquiry Request 
(INQUIRY, $CIENT, $UNMSK) Flowchart 
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Save/Restore Core—NPAUSE, $PAUSD, $RSTR (Figure 3-12) 


e@ NPAUSE saves the contents of core in a disk save area when a program is put in an 
execution pause condition or the maintenance utility monitor (Figure 3-99) is called. 
The save area length is 58 sectors, starting at relative disk address X‘0600’ in the system 
program file. This area is labeled ##CORE. 


e The core area saved is from the end of the nucleus (Figure 3-11) to the end of core 
or to the start of the CRT IOCS ($DSPLY). 


e Upon reentry at the location $RSTR, the saved core is restored from the disk save 
area, and the program which was paused is ready to be continued. 


e Entry points: 


i. $PAUSD—Normal entry to save core. 
2. $RSTR—Entry to restore core. 


System Nucleus 


X'0600' | 


#DPRIN 


Problem Core 


#£XMSG 
(program interruption 
processor) 


Restore Problem Core 
> #DSPLY 


SCRT OCR and buffer) 
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Figure 3-11, Save/Restore Core (NPAUSE) Core Map 
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Figure 3-12, Save/Restore Core (NPAUSE, $RSTR, $PAUSD) Flowchart 
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System Loader—NBLOAD, $BLOAD, $RLOAD, $LOADR (Figure 3-14} 
e NBLOAD is used for loading and executing a requested program (Figure 3-13). 


e Three types of calling sequences are available to the calling program: 


Calling sequence to load and execute a fixed-disk-address program: 
B $BLOAD 


DC AL2(DPL) DPL is the address of the disk parameter list used to load the 
program (Figure 3-3), 


Calling sequence to load and execute a relocatable-disk-address program: 
B $RLOAD 


DC AL2{DPL) DPL is the address of the disk parameter list used to load the 
program (Figure 3-3). 


Calling sequence to load a relocatable-disk-address program and return to the calling 


program: 
B $LOADR 
DC AL2{(DPL) DPL. is the address of the disk parameter list used to load the 


program (Figure 3-3), 


e The disk address specification in the DPL, when using $RLOAD, is the base disk 
address for the program. It is added to the starting address of the system program 
file to find programs that are within the file at fixed displacements. 


e@ No check is made to verify that the DPL address is correct. 


Nucleus 


NBLOAD 


1/0 Routines 
Load address passed in calling 
sequence, Unpredictable results occur 


NN Calling Program if this address is below X'0600'. 


ZTRAC 
(FE program !oad/trace) 


Requested Program 
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Figure 3-13. System Loader (NBLOAD) Core Map 


Licensed Material—Property of IBM 


$LOADR 


NLOADR 


Set switch 
for return 
to calling 

program, 


$RLOAD 


NRLOAD 


Set switch 
for relocated 
load, 


$BLOAD 


NBLOSO 


Relocate 
Load 


Add relocation 
factor to disk 
address In DPL. 


NBLOGO- 


FE Program 
Load/Trace 


NBLZTR 
$DISKN 


Read In 
#ZTRAC at 
same load 

address. 


#ZTRAC 


Print program 
header, 


NBLATN 
$DISKN 


Read In 
requested 
program. 


Make an 
antry to 
FE map. 


Return 
to Calling 
Program 


Return to 
Calling 
Program 


NBLO67 


To Program’s 
Initial Entry 


BR1055 


Figure 3-14. System Loader (NBLOAD, $BLOAD, $RLOAD, $LOADR) Flowchart 
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Error Message Program—#ERRPG (Figure 3-17) 


e #ERRPG prints all terminal error messages (except those from copy disk) that occur 
during BASIC or utility modes of operation. For messages occurring in DCALC mode 
of operation, refer to “DCALC Error Messages—-VERROR.” 


e@ The assembly of #ERRPG contains these major source modules: 


1, ERRPGM~—Mainline logic, Figure 3-17. 
2. DL2ICS—Disk logical IOCS, Figure 3-70. 


The error code for all messages except stacked (multiple) is obtained from the system 
communications area in the nucleus at label SCAERR (Figure 5-1). Stacked error codes 
(Figure 3-15) are located at label $$ERSK. The error codes, when present at these loca- 
tions, are the message numbers within ##ERMS. 

The message texts and table of relative displacements are located in the system pro- 
gram file. The assembly containing the messages has the name ##ERMS. Error codes 
passed to #ERRPG index these tables. The message text is read from disk with a two- 
sector read, A message can overlap one sector boundary. After the two sectors are read, 
the message is located in the buffer using the second byte of the table entry (Figure 
3-16). The fourth byte of each message is the length of the message. 

#ERRPG prints an up-arrow under the first improper character of input when a syntax 
error occurs, On entry, the index register points to this position in the input line buffer. 

The bad line is stored in the bad-line buffer on cylinder 4 of the system work area. 
Refer to “System Work Area Equates-@WKAEQ” in the program listings for the disk 
address of the bad-line buffer. 


3-Byte Error Entry 
3 


Note: Byte 2 is set to X’AO’ when 
no Jine number exists, 
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Figure 3-15, Stacked Error Entry at $$ERSK 


2-Byte Error Message Entry 


Relative sector Relative displacement 
displacement ithi 


within sector 
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Figure 3-16, Message Table Entry (#ERRPG) 


When a syntax error occurs: 


1, An up-arrow is printed under the first invalid character of input. 
2. Onentry, the index register points to this character in the input line buffer. 
3, A full error message is printed if the enter-plus key is pressed. 
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Figure 3-17, Error Message Program (#ERRPG) Flowchart 
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Program Interruption Processor—#E XMSG (Figure 3-18) 

e #EXMSG prints a message on a program interruption, identifying the type of inter- 
ruption, and the line number where the program was interrupted. 

e The assembly of #EXMSG contains the major source module (EXMSGS). 


#EXMSG is loaded (Figure 3-11) via the $PAUSD routine in the nucleus when one of 
the following conditions is present: 


1. Console interruption—Printed line number refers to the statement last executed. 

2. Pause statement-Printed line number refers to the pause statement being 
executed, 

3. Step mode—Printed line number refers to the statement last executed. 


4. System stop, system reset, system start—Invokes maintenance utility aids, 


#EXMSG 


EXMSGS 


DETERMINE INTERRUPTION SOURCE, PRINT MESSAGES, SET 
INDICATORS 


Enter $LOADR to load input and output routines if not in core. 
. Exit $RLOAD if Maintenance Utility Aid called. ; 
. Enter $SPRNT to print console interruption, step mode, or pause 


statement message. 
. Enter C2DECS to convert line number. 
. Enter $SPRNT to print line number. 
. Set respective NUCLEUS indicators. 


EXMi155 
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in NUCLES. 
: earns ine sane ue 2. Enter $RSTR to restore core 
= eee Pate from disk. 
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Figure 3-18, Program Interruption Processor (#EXMSG) Flowchart 
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Work File Update/Crusher—#GUFUD (Figure 3-22) 


e #GUFUD updates the work file in the system work area and maintains the file in 
line-number order. 


While #GUFUD is waiting for the operator to complete the next line of input, the 
crush and reorder portion packs the file by reorganizing the disk blocks that contain 
segments of the file. #GUFUD attempts to keep these disk blocks in physical order, 
utilizing as much space in each active block as possible by condensing the segments of 
the file. Either the keyboard IOCS (DEPRES), the card reader IOCS (DREADN), or the 
predefined procedure line fetch routine G(GRAPR) accepts an input statement or com- 
mand from the operator and concurrently builds a line in the primary input line buffer. 
The assembly of #GUFUD contains these major source modules: 


GUFCSH—Work file crush and reorder, Figure 3-22. 
GURDIN—Common disk read subroutine, no flowchart. 
DL4ICS—Work file IOCS, Figure 3-70. 

GUFPAK—Pack core buffers subroutine, Figure 3-22. 

GUFENT Initialization, Figure 3-22. 

GCPACK~—Pack BASIC program statement subroutine, no flowchart. 
GUFUPD—Work file update, Figure 3-22. 


Figure 3-19 illustrates the usage of core, initially containing initialization and file 
update routines, as disk I/O buffers. These buffers are referred to as CB1, CB2, CB3, 
and CB4. The fifth buffer is used by the subroutine that packs the contents of the first 
four buffers. 
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ee 


Figure 3-19. Work File Update/Crusher Core Map 
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The core index table (CIT) contains four 4-byte entries, one associated with each of 
the four core buffers. The content of each entry is: 


1. Byte 1—Relative sector displacement into the work file of the disk block in this 
buffer. 

2. Bytes 2 and 3—Highest line number in this buffer. 

3. Byte 4—Unused or free bytes in this buffer. 


(nitialization—GUFENT 


The initial entry to #GUFUD contains a branch to the initialization routine (GUFENT). 
The functions performed by this routine are detailed in Figure 3-22. The area occupied 
by GUFENT is used as disk I/O buffers by other sections of #GUFUD, after initializa- 
tion is complete (Figure 3-19). 

Three indicators in the system communications area (NUCLES) determine the opera- 
tion to be performed on the input: 


1. $FUIND—A new or replacement line is to be placed in the work file. #GUFUD 
expects a seven-byte statement header (Figure 3-21) in the primary input buffer 
(X‘0600’). Following the header, in the eighth byte of the secondary input 
buffer (X‘1C00’+7), #GUFUD expects either a syntax-checked BASIC program 
statement, a syntax-checked data file line, or a procedure file line. 

2. $FDIND-—A parameter list of line numbers is to be deleted. #GUFUD expects 
the presence of a delete parameter list (Figure 5-26) in the secondary input buffer 
(X‘1C00’). 

3. $FCIND—A single line number is to be deleted. #GUFUD expects the two-byte 
binary line number, of the statement to be deleted, to be present in the fifth and 
sixth bytes of the primary input buffer (X‘0600’+4). 


If all three of the preceding indicators are off, only crushing and reorder operations are 
performed. Work file update operation is bypassed. 


Pack BASIC Program Statements—GCPACK 


If a BASIC program statement is being inserted (addition or replacement) in the work 
file, the GCPACK subroutine is executed to pack the statement. This packing operation 
is performed on the statement after it has been moved to the secondary input buffer. 

Repetitions of characters in the statement are packed before the statement is written 
to the work file. When a character is repeated more than twice, all but the first character 
is replaced by a one-byte count of the additional repetitions of the character. This count 
byte can be recognized by the fact that it cannot equal or exceed X‘1C’ (end-of-statement 
code), the lowest valid functional character. The range of the repetition count byte is 
X‘02’ thru X‘1B’, If the repetition count exceeds X‘1B’, more than one repetition 
sequence is generated (Figure 3-20). After the line is packed, the byte count of the 
packed line is stored in the statement header. 

The core area occupied by GCPACK is also used as disk I/O buffers after initialization 
is complete (Figure 3-19). 


Work File Update—GUFUPD 


This routine adds, replaces, or deletes a single statement (line), or deletes lines specified 
by a list of line deletion parameters. The file index table (FIT) in high core is searched, 
by line number, to locate the first affected disk block. This disk block is read into CB1 
and the next two logically sequential disk blocks are read into CB3 and CB4. The disk 
block in CB1 is searched for an equal or high line number. (Equal effects a line deletion 
or replacement; high effects a line addition.) 
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Figure 3-20, System Work File (Packed Data) 


The four functional operations performed by the work file updater are: 


e Single Line Deletion, Adjust the CIT to reflect the additional free space in CB1. Pass 
the core address of the first (primary) segment in the line to the pack core buffers 
subroutine. The packer physically deletes the line (all segments). 


Line Addition. Line segments are shifted from CB1 into CB2 to provide space for 

the new line. Each block is maintained in ascending line number order. The new line 
may require division into two segments—one in CB1 and one in CB2. In this case, the 
primary segment is moved to CB1, segments in CB2 are shifted to the right, and the 
secondary segment is moved to CB2. After the new segments are moved to the buffers 
and the CIT is adjusted to reflect their status, the buffers are packed by the pack core 
buffers subroutine. 


Note: Part 1 of the line insertion routine (GUU110) may be overlayed by data being 
moved to CB2 by part 2 of the routine (Figure 3-19). 


Line Replacement. Processed as a single line deletion followed by a line addition. 


Deletion of a Range of Lines. Deletion of a range of lines differs from single line 
deletion in these respects: The delete range indicator is set for the pack core buffers 
subroutine. Consecutive passes are made through work file update (GUFUPD) for 
each range of line numbers in the parameter list. When the parameter list is com- 
pletely processed, #GUFUD is reloaded to make a second pass through initialization 
(GUFENT) and print the ready message. 
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Work File Crush and Reorder—-GUFCSH 


This routine is executed following the completion of a task by work file update and 
while the system is waiting for the completion of a statement or command input 
operation. 

The FIT in high core is searched, always from the beginning, to locate the first active 
disk block containing more than eight bytes of free space. If such a block is located, that 
block and the next two logically sequential disk blocks are read into CB1, CB2, and 
CB3. After the CIT is updated, the buffers are packed by the pack core buffers sub- 
routine. The preceding operation is referred to as a single crushing operation. 

Successive crushing operations cause free space to be moved to the logical end of the 
work file. Any scan of the FIT that does not locate a disk block containing excessive 
free space indicates the work file is completely crushed (packed). 


Note: Free space in the last logical block of the file is not considered. 


When the work file is completely crushed, the reorder section (GUFRDR) is executed 
to resequence the active disk blocks into physical order, Physical order means that disk 
blocks are in ascending line number order at consecutive, ascending relative disk addresses 
within the work file. Logical order means that the disk blocks are chained together so 
that they can be accessed in ascending line number order. Chaining is provided by the 
FIT and by the linkage code in the first byte of each disk block. 

To reorder the file, the FIT in high core is searched, always from the beginning, until 
two consecutive entries are found pointing to disk blocks out of ascending order, Four 
disk blocks are read into CB1 thru CB4. These disk blocks are those referenced by four 
consecutive FIT entries, where the two in the center (CB2 and CB3) are the two found 
out of sequence on the search. 

The physical location references in the FIT, for the last three disk blocks read in, are 
sorted into ascending order, The physical location reference of the first disk block can- 
not be changed because it is referenced by a linkage code in a disk block which is not 
available at this point. All four disk blocks are written to the physical disk locations 
specified by the sorted FIT entries. As each is written, it is linked to the disk location 
of the block that follows it. The preceding operation is referred to as a single reorder 
operation. 

Successive reorder operations cause the work file to be closer to being in physical 
order. Any scan of the FIT that does not locate an out-of-sequence condition in the 
file indicates the work file is completely reordered. 

Checks for input line complete (GUFSCL) are made before each crushing or reorder 
operation. If the statement or command input is complete, the command analyzer 
(#ECMAN) is loaded via the system nucleus, If a blank line or card is encountered, input 
is reenabled, and crushing/reordering continues. Successive crushing or reorder operations 
continue until input is complete or the work file is completely reordered. 

Figure 3-21 is a simplified flowchart of the crush and reorder operations, 


Pack Core Buffers Subroutine—GUFPAK 


The packing subroutine is used by both work file update and work file crush and reorder - 
to pack the disk blocks in CB1 through CB4 and write them to the work file. Packing the 
core buffers means moving the free space from the first three buffers to the end of the 
fourth buffer by shifting line segments toward the first buffer. The disk blocks in the 
buffers are always in ascending line number order. The packing subroutine also updates 
entries in the file index table (FIT) to reflect changes made to the disk blocks. 
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Figure 3-21, Work File Update, Crush, and Reorder Operations 
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Two address pointers are used to perform the packing operation. One address references 
the start of the first free space in the buffers. The other references the start of the next 
line segment following the free space. The second address is incremented past any secon- 
dary segments of a deleted line, or past deleted lines, when deleting a range. It may 
become necessary to read in more disk blocks, in logical line number order, to effect a 
deletion. A work area (GUFCWA) is used during the packing operation as an interme- 
diate holding area as the buffers are being condensed (packed). 

Following a single pass through the packing subroutine, CB1, CB2, CB3, and CB4 may 
contain line segments (always in ascending line number order). Only the CB’s containing 
active segments are written back to the work file. 

FIT entries may become null (due to line deletions), be activated (line addition; one 
entry only), or be modified (changes in line number and/or free space), 


#GUFUD 


GUFENT 


CHECK SYSTEM STATUS AND 
INITIALIZE FOR REQUESTED FUNCTION 


Mask inquiry requests, 

Call $SPRNT to wait if in keyboard mode, 

Call $LOADR to read in |/O routines if theyre not in core. 

. Call $SPRNT to print ‘FUNCTION INTERRUPTED’ if appropriate. 

Call $SPRNT to print READY if appropriate. 

If in utility mode, or work file not defined, or contains a program- 

generated data file, set for no crushing. 

If FIT not in core, call $DISKN to read it in. 

If a delete list passed, 

Move primary input buffer to secondary input buffer if work file 

to be updated. 

Check for potential automatic line number overflow; if so, and card 

NUM input, give internal error message via $SPRNT. If so, and card 

input, set exit to $CAERK to load #ERRPG. 

11. Call $$PRES to enable input if in key mode. 

12. If no update required, call $DISKN to wait for disk operation to 

complete. « 

. Ifa BASIC statement to be inserted, call GCPACK to pack it. 


G9 LON PABRWN> 


GUFUPD 


UPDATE THE WORK FILE 


Search the FIT for the specified line number. 
. Call DL4ICS to read the affected data blocks. 
. Search the data blocks for the specified line number. 
Ignore deletes of non-existent line numbers. 
. If delete of existing line, go initialize packing routine.. 
lf a replacement of line, set pointers to delete it and handle as a 
new line. 
If a new line, insert it in data block 1 or null data block and 
initialize packing routine. 
. Execute data block packing routine. = 
. Ifa delete list, 
. If in card input mode: 
a) Unmask inquiry request, 
b) Re-mask inquiry request, 
c) Call $$PRES to initiate card read, 
d) 
11. If not end of delete list, increment to next line number. 
12, If end of list, exit to $CARPL to load $GUFUD. 


13. Exit to $CAERK to load $ERFPG if errors. 


CON N ANAWNH= 


= 
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Figure 3-22, Work File Update/Crusher (4#GUFUD) Flowchart (Part 1 of 2) 
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GUFCSH 


CRUSH AND/OR REORDER THE WORK FILE 
UNTIL INPUT COMPLETE 


. Unmask inquiry requests if key input. 

. Call $$CDBS to set input status if card input. 

. If input not complete: 
a) Call $DISKN to wait for disk operation to complete, 
b) Mask inquiry requests, 


WN 


c 
. Exit to $CAERK to load $ERRPG if errors have occurred. 
. If card input and blank line entered, 

Call $$PRES to enable input if blank line entered and key input 
If not a blank line entered: 

a) If utility mode, load and execute $ECMAN via $RLOAD, 

b) If conversational mode, load and execute $ECMAN via $BLOAD. 
. Search active portion of FIT for null spaces. 

. If null spaces found: 

a) Call DL4ICS to read in effected data blocks, \ 


NOOR 


ole} 


b) Initialize packing routine, 
c) Execute packing routine, 
d) 
10. Search active portion of FIT for data blocks out of physical order. 
11. lf data blocks out of order: : 
a) Call DL4ICS to read in 4 data blocks, 
b) Order the FIT entries data block displacements, 
c) Update the data blocks linkage indicators, 
d) Call DL4ICS to write the data blocks to the work file. 


GUFPAK 


DATA BLOCK PACKING ROUTINE 


Primed with from 1 to 4 data blocks to be packed. 

Save return to calling section. 

Pack the data blocks by removing the null spaces. 

If the range delete indicator is on, delete lines within range. 
Update the file index table. 

Calt DL4ICS to write the active data blocks back to the work file. 


OOS ONS 


Return to 
Calling Sequence 


Figure 3-22, Work File Update/Crusher (#GUFUD) Flowchart (Part 2 of 2) 
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Keyword length 


Command Analyzer—#ECMAN (Figure 3-24) 


e #ECMAN analyzes BASIC system input and loads the program required to process 


the requested function. 


e The assembly of #ECMAN contains the major source module, ECMANL. 


All input from the keyboard or card reader is analyzed by HECMAN, except for blank 
lines, or input at execution time, to user written BASIC programs. #ECMAN is loaded 
by the file update program (#GUFUD) when a completed input record (EOS detected) 
exists in the input line buffer. The following actions are taken: 


1. Input starting with a keyword causes the corresponding keyword program to be 
loaded and executed. HECMAN scans a table, containing one entry for each key- 
word, for a match with the input line. The DPL used to load the keyword pro- 
gram is built from fields in this entry (Figure 3-23). 

2. Input starting with a line number causes the appropriate syntax checker program 

| (#SFSYN, #SPSYN, or #SDSYN) to be loaded and executed. 
3. If the first character of input is a command key, #EFKEY (Figure 3-61) is loaded. 
4, Invalid lines, and other error conditions, cause the error program (HERREG) to be 


loaded and executed. 


5. If DCALC-requested code is on the first text byte of primary input buffer, DCALC 


is invoked. 


Count of letters in the 
keyword =n. n+ 7 = length 
of this entry. A length of 
zero indicates end of table. 


Indicators 


Indicators 
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X‘80’—Work file can be 
program generated. 
X'40’—Work file can be 
protected. 
X’20'—Work file must not 
be empty. 
X‘10'—Work file must be 
defined. 
X‘08'—Non-pause state 
only. 
X'04'—Pause state only, 
X‘02’—Conversational 
mode only. 
X'01'’—Reserved. 


X’80’—Reserved. 
X'40’—Virtual memory 
must be intact. 
X'20'—Allowed in temporary 
utility mode. 
X’10’—Work file can be 
data file. 
X‘08’—Virtual memory 
overlayed. 
X'04'—1/O routines 
overlayed. 
X’02'—Prime buffers with 
work file. 
X‘'01'—FiT overlayed, 


Field Name Field Description 


Relative disk Displacement of the first 
address sector in the keyword pro- 
gram relative to the start of 
the system program file. 


Count of sectors occupied 
by the keyword program. 


Sector count 


Load address High-order byte of two-byte 
core load address. Low-order 


byte is always X‘00’. 


Keyword Actual keyword, This field 
is scanned for a match to 


the input line buffer. 


Figure 3-23. Keyword Table Entry (#ECMAN) 
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ECM110 


CARD INPUT 


1. Set EOS after last non-blank. 
- 2, Insert automatic line number if in numeric mode. 
3. Call $SPRNT to list card if not in no-list mode. 


#EFKEY 
Figure 3-25 
Via $R LOAD 


ECM500 
POTENTIAL SYSTEM COMMAND 


1. Call $SPRNT to list card’ if in no-list mode. 
2. Search table for valid keyword. 


| FILE LINE 


1. Call C4BIN2 to convert line number to binary. 
2. Put binary line number in header. 


3. Check error conditions. 


File 


Keyword 
In Table 


Line We Call $SPRNT 
Acceptable to print Yes 
question mark 
- ECM580 
#ERRPG 
Figure 3-17 SYSTEM COMMAND 
Via $CAERK 
. . Check if command allowed. 
. Call $DISKN to save FIT if 


Deletion 
Line 


Procedure 


#SPSYN 
Figure 3-28.1 
Via $BLOAD 


#SDSYN 
Figure 3-28 
Via $BLOAD 


necessary. 

. Call $DISKN to prime buffers 
if requested. 

. Set appropriate indicators. 

. Call $SUNMSK to allow 
interrupts, 

. Set $RLOAD DPL for this 
command. 


#GUFUD 
Figure 3-22 Via 
$CABLD or $CAIP 


#GUFUD 
Figure 3-22 
Via $CABLD 


Command No 
Allowed 
#SFSYN 
Figure 3-27 Yes #ERRPG 
Via $BLOAD Figure 3-17 
Via $CAERK 


Keyword Program 
Via $RLOAD 


Figure 3-24, Keyword Table Entry (4ECMAN) Flowchart 


Program Organization 3-29 


Licensed Material—-Property of IBM 


3-30 


Command Key Processor—#EFKEY (Figure 3-25) 
e@ #EFKEY processes command keys 1 through 11 


e #EFKEY resides in the system program file and is loaded behind the I/O routines in 
core by the command analyzer (FECMAN). 


e The command key table (##CKTB) contains commands that are either IBM assigned 
or assigned by the KEYS keyword program. 


The command key table (##CKTB) has an entry for each of command keys 1 through 
11. Commands in the table are either IBM assigned or assigned by the KEYS keyword 
program. Figure 5-28 is a list of the IBM assigned command key functions. See Fig- 
ure 5-27 for the format of the command key table. 

If the command length in the table is nonzero, the command text for the specified 
key is passed to the command analyzer (#ECMAN) in the input line buffer. If the 
command length is zero, the IBM assigned function for command key 1, 4, or 7 
(whichever key is specified) is processed by routines in #EFKEY. 
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#EFKEY 


READ TABLE 


Call $LOADR to read the 


command key table ##CKTB 
into core. 


Command 
length = 0 


EFUKO7 


PROCESS KEY 7 


. Find the command text 1. Create a default file 
in the command key table name. 
##CKTB. 2. Move ‘EDIT’ plus file 

. Move the command text name to the input tine 
to the input line buffer. buffer. 


EFU990 EFUKO1 


PRINT THE COMMAND PROCESS KEY 1 


Call $SPRNT to print the 
command on the system 
printer. 


Set the #VODKA indicator. 


EFUK04 


PROCESS KEY 4 


#ECMAN 
Figure 3-24 
Via $RLOAD 


Call $SPRNT to print the 


input line buffer up to the 
last up-arrow or EOS. 


#GUFUD 
Figure 3-22 
Via $CABLD 


Figure 3-25. Command Key Processor (#EFKEY) Flowchart 
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BASIC Statement Syntax Checker—#SFSYN (Figure 3-27) 
e #SFSYN examines every BASIC statement for valid syntax. 


e The assembly of #SFSYN contains the source module, SFSYNC. 


If a syntax error is detected, #ERRPG is called to print an up-arrow under the first 
invalid character of the statement. The index register is loaded with the address of this 
character. An error code is also loaded into $CAERR in case the user pressed the enter- 
plus key, requesting a full text message. 

If no error is found, a one-byte type code is placed in the byte immediately preceding 
the BASIC statement in the input line buffer. 

#SFSYN scans a statement branch table (Figure 3-26) for the address of one of 18 
routines used to syntax check statements. The first two nonblank characters after the 
line number are used in this scan when a statement keyword is in evidence. For those 
exceptions where no keyword exists IMAGE, non-LET assignments), a direct branch 
is taken to the proper syntax checking routine, 

The arithmetic expression routine includes a search through an intrinsic function table 
that contains 23 entries, Each entry contains the three-byte name of an intrinsic func- 
tion. The arithmetic expression routine also uses an eight-byte pushdown list to validate 
nested subexpressions, Each single-byte entry in the pushdown list indicates the validity 
of a comma appearing in the remainder of the subexpression. 


4-Byte Statement Branch Table Entry 


peste ieee [oat we | 


Keyword prefix Routine address 
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Figure 3-26, Statement Branch Table Entry (#SFSYN) 
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SEARCH BRANCH TABLE BASED ON FIRST TWO 
CHARACTERS 


#SFSYN 
SFS004 1. PRINT & PRINT USING SFSPRS 
Look At First 
Two Characters After 
ptstomene Number 


6. GOTO & GOSUB SFSGOS 
7, READ, REM, RESTORE & RETURN  SFSRES 


8. INPUT SFSINS 
9. END SFSENS . 
10. PAUSE SFSPAS 
11. DIM SFSDIS 
12. DATA SFSDAS 
13. STOP SFSSTS 
14. PUT SFSPUS 
LET 15. GET SFSGES 
Assignment 
16. DEF SFSDES 
17. CLOSE SFSCLS 
MAT Yes 
Statement 
SFSMAT 
Exit to $BLOAD 
No To Load #SFOVR 
#SFOVR 


- PROCESS BASIC MAT STATEMENTS 


PROCESS Proeei at EMeENE Cali $BLOAD to load MAT routines. 


1. 

2. Scan statement from left most character to EOS 
terminating statement. 

3. Set type code at $$TPCD. 

4, Set character pointer (XR) to first invalid 
character. 


= 


Scan statement from the leftmost character to the 
EOS symbol terminating the statement. 

Set type code at $$TPCD. 

Set character pointer (XR) to first invalid character 
(except in substring operands). 
If STR typecode is encountered 


PF WON 


ts 
Statement 
Valid 


No 


PROCESS SUBSTRING OPERANDS 


Exit to #BLOAD (if initial) or branch 
directly (if not initial) to load 4STROV. 


. Scan operand field from left 
parenthesis to right parenthesis 
inclusive. 

. lf operand field valid, return with SFSERR SFSUPD 


XR pointing to the next character 
past the operand field. Load XR (Error Pointer) to $CAERR Set $INDR2 Indicator to $FUIND 
. If operand field invalid, return & SREADY 


with XR pointing to the first 


invalid character. 


#ERRPG 
Figure 3-17 
Via $CAERK 


#GUFUD 
Figure 3-22 


Via $CABLD 


Figure 3-27, BASIC Statement Syntax Checker (#SFSYN) Flowchart 
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Data Syntax Checker—#SDSYN (Figure 3-28) 
e #SDSYN examines data entered when operating under the EDIT DATA command. 


e The assembly of #SDSYN contains the source module, SDSYNC. 


If a syntax error is detected, #ERRPG is called to print an up-arrow under the first 
invalid character of the statement. The index register is loaded with the address of this 
character. An error code is loaded into $CAERR in case the user depresses the enter- 
plus key, requesting a full text message. ; 

If no error is found, each character or numeric constant is converted to internal form 
in the secondary input buffer. This buffer is written to the work file by #GUFUD (Fig- 
ure 3-22), The secondary input buffer contains a header preceding the statement, This 
header contains the length of the data and header in the secondary input buffer. 


#SDSYN 


SDS010 


INITIALIZE DATA SYNTAX CHECKER 


Set primary input buffer pointer to $X RSAV. ~ 
Test for mandatory blank. 

Initialize secondary tine buffer header. 

Set routine for long precision if required. 
Increment past leading blanks. 


APWNs 


SDSO070 


Value 
A Character 
Constant 


Yes 


SDSO80 


TEST AND TRANSLATE CHARACTER CONSTANT 


. Initialize character constant field in secondary line 
buffer. 

Increment line count by character length. 

Test for maximum buffer length. 

Test constant syntax as each character is moved to 

secondary line buffer. 

Exit to $CAERK on errors to load #ERRPG. 


BON 


VALID DELIMITER SEQUENCE SCAN 


. Test for valid delimiter sequence. 
. If at end of line, set valid line indicator and exit to 
$CARPL to load file update routine. 


. If valid sequence increment line pointer and recycle 
loop until end of line. 
. Exit to $CAERK on errors to load HERRPG. 


Yes No 


#GUFUD 
Figure 3-22 


Via $CARPL 


SDS300 
TEST AND TRANSLATE ARITHMETIC CONSTANT 


Initialize foop. 

Initialize arithmetic constant field in secondary line 
buffer. 

Increment line count by constant length. 
Test for maximum buffer length. 

Test syntax of the constant’s mantissa as it is 
moved to secondary line buffer. 

Test syntax of the exponent if it exists. 

Enter C4BIN2 to convert exponent to binary. 
Adjust exponent and test validity. 

Exit to $CAERK on errors to load #ERRPG. 


SOCIO: ORG NS 


SDS600 


PACK THE ARITHMETIC CONSTANT 


. Hf mantissa is zero, set status to positive and 
exponent to maximum low. 
. Pack the constant mantissa in place. 


. Insert constant’s exponent. 
. If long precision, set long precision indicator 
in item. 


Valid No 
Delimiter 


Sequence 


#ERRPG 
Figure 3-17 
Via $CAERK 


Figure 3-28. Data Syntax Checker (#SDSYN) Flowchart 
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Procedure Line Checker—#SPSYN (Figure 3-28.1) 


e #SPSYN analyzes procedure lines when operating under the EDIT PROCEDURE 
command. 


e@ The assembly of #SPSYN contains the major source module, SPSYNC. 


If a format error is detected, #ERRPG is called to print an up-arrow under the invalid 
character of the statement. The index register is loaded with the address of this character. 
An error code is loaded into $CAERR in case the user depresses the enter + key to request 
a full text message. 

If no error is found, each character is moved to the secondary input buffer. This 
buffer is written to the system work file by #GUFUD (Figure 3-22). The secondary 
input buffer contains a header preceding the statement. This header contains the length 
of the procedure line and header in the secondary input buffer. 


#SPSYN 


SPSYNC 


INITIALIZATION, CHECK DELIMITERS 


1. Point to start of input line buffer. 
2. If a mandatory blank is not present, move an error code to 
$CAERR and exit to $CAERK. 


SPS020 


BUILD SECONDARY LINE BUFFER, ADJUST POINTERS 


Zero header of temporary buffer. 
Move a character from the input line buffer to temporary 
buffer. 

Update character count in the SDF header, 

Exit to SPS100 if EOS character. 

Update the buffer pointers for the next character. 


GPO No 


SPS100 
SET NUCLEUS INDICATORS 


1, Set the valid line indication for #4GUFUD. 
2. Move the temporary buffer ta the secondary line buffer. 


#GUFUD 
Figure 3-22 
Via $CABLD 


Figure 3-28.1. Procedure Line Checker (#SPSYN) Flowchart 
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Conversational 1/O Routines—#DPRIN 


e@ This program contains two I/O subroutines: DPRINT and DEPRES. Their functions 
are described in the following paragraphs. 


Matrix Printer |OCR—DPRINT (Figure 3-29) 


e This routine provides six print I/O functions. 


e Ifan operation is not in progress when a call is made to this IOCR, the operation is 
started and a return is made to the calling program. 


e Ifa previous operation is in progress, the IOCR does not return until that operation 
is completed error free and the new operation is started. 


e The calling sequence for DPRINT is: 


Calling sequence for system printer: 

B $SPRNT 

DC AL2(PPL) PPL is the address of the print parameter list (Figure 5-23), 
Calling sequence for a direct call to the matrix printer: 

B DPRINT 

DC AL2(PPL) PPL is the address of the print parameter list (Figure 5-23), 


@ No checks are made for validity of the PPL. 
1/0 Functions—DP RINT 


Print: The data to be printed must reside in core and be contiguous. Any length of data 
up to 256 characters can be printed by one call. The IOCR starts printing the data at the 
current print element position. If the programmed right margin is hit, the print element 
is returned to the programmed left margin and the form is advanced to the next line. 
Printing is then completed on the next entry to DPRINT. Upon completion of the print 
function, the print element is positioned at the next print position after the last character 
is printed. 

Print and Return Element: This operation is the same as print, except the print element 
is positioned at the programmed left margin on the next line following the completion 
of print. 

Return Element: The print element is positioned at the programmed left margin and the 
form is advanced to the next line. 


Backspace and Index: This operation moves the print element left one print position 
and indexes (advances) the forms one line. If the left margin is hit, no more spacing is 
done, 


Backspace: This operation is the same as backspace and index except no index is 
performed. 


Wait and Check for Errors: To allow printer overlap, a special wait function is provided. 
The IOCR waits for the previous operation to be completed and then checks for errors. 
If the previous operation hit the programmed right margin, a new operation to continue 
printing on the next line(s) is started and completed before a return is made, 
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Figure 3-29, Matrix Printer [OCR (DPRINT) Flowchart 
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Keyboard [|OCR—DEPRES (Figure 3-30) 
e DEPRES handles input from the keyboard. 


e DEPRES is divided into two sections: 


1. Call section—Enables interruptions and unlocks the keyboard in preparation 
for line input. It sets the interruption address to the interruption section. When 
a key is pressed, the interruption section is entered on the keyboard interruption 
level. 

2. Interruption section—Saves the system status (BR, XR, PSR, ARR, P1-IAR) 
and handles the data input from the keyboard. Upon completion of the input 
line, SK YBSY is set to zero, indicating the line is complete. The keyboard is 
then locked (inquiry request is never locked). 


e Entry Points. When line input or a command key is desired by the calling program, 
the call section of DEPRES is called, unlocking the keyboard and setting the line 
input indicator ($K YBSY): B DEPRES. If only a command key or a function key 
is desired, $CMDKY is set on by the calling program, indicating to the keyboard 
IOCR that only command keys and interruption requests are to be recognized. 


e Exits. Exit from the call section is to the calling program; exit from the interruption 
section is to the interrupted program. 


e Data parity is checked. 
Key Functions (DEPRES) 


Data Keys: The character is placed in the input line buffer and printed on the system 
printer. 

Tab Keys: If the current position in the line buffer is pointing within an existing line, 
the old character is printed. If it is not, a blank is printed. This positions the carrier one 
space to the right. If the key is held down, the typamatic feature is activated and the 
spacing operation is repeated until the key is released. 


Backspace Key: If the system printer is the matrix printer, and if this was the first back- 
space for the current line, the carriage is indexed and backspaced one position. Other- 
wise, the index feature is not executed. If the key is held down, the typamatic feature is 
activated and the backspace operation is repeated until the key is released, 


Return Key: The carriage is returned on the system printer and $K YBSY is set to zero, 
indicating the line is complete. The keyboard is then locked. 


Erase Key: ERASE is printed, and the carriage is returned on the system printer, allow- 
ing the line to be reentered. 


Inquiry Request Switch: Depending upon the mask status, the current operation is 
aborted. This switch, on the keyboard console, cannot be locked. 


Program Start Key: The data is sensed and saved. If it is the start of a line, the auto 
line is printed, This key is also used to start execution when the system is in pause mode. 


Enter-Minus Key: Printer (if in use) is indexed one line. 
Enter-Plus Key: Used to invoke the second-level error message. 


Command Keys 1 through 11: If the print element (or CRT cursor) is at the left margin, 
the command key indicator is placed in the input line buffer. 


Other Command Keys: If the CRT is present, DSPLYN is called to perform the function 
requested. 
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Error Procedures 


A data register parity error is retried once. The system halts upon such an error, indi- 
cating to the user that a parity error has occurred, The system start switch must be 
activated to continue, Two successive parity errors cause a system-generated hard halt. 
An IPL must be initiated to recover from a hard halt. 
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Figure 3-30. Keyboard IOCR (DEPRES) Flowchart 
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Card Reader I/O Routine—#DREAD (Figure 3-31) 
e #DREAD provides two functions: 


1. Reads a card into the input line buffer. 
2. Tests to see if the card reader is busy. 


e This routine overlays the keyboard routine (DEPRES) in core when the input mode 
is cards rather than keyboard. 


e Entry points: 


1, DREADN- Initiates the reading of a card. This entry is the same as enabling 
and unlocking the keyboard when keyboard is desired (refer to “Keyboard 
IOCR—DEPRES’”’). 

2. CRDBSY-—This entry is to test completion of the card read function. 


#DREAD is called into core by the work file update/crusher program (#GUFUD), over- 
laying the keyboard routine (DEPRES), when card input is specified. 

The calling program branches to DREADN in #DREAD to read a card in the card 
reader, A check is made to see if the card reader is busy. If the card reader is busy, a 
branch is made to the card busy routine (CRDBSY). If the card reader is not busy, and 
is ready to operate, the reading of a card is started. #DREAD exits to the calling pro- 
gram while the card is being read. The calling program must then reenter #DREAD at 
entry point CRDBSY to test for successful completion of the card read function. 

CRDBSY is entered to see if the card reader is busy and if an error is indicated in the 
card reader. If it is not busy and no error is indicated, #K YBSY indicator is set to 0, 
indicating completion of the card input, and return is made to the calling program. If 
the card reader is not busy and an error is indicated, the error pending indicator is set 
on, and the CRDBSY routine is reentered to retest for the error indication. A soft halt 
results if there is a compare error or a transport jam. The error test is made for a maxi- 
mum of five times, A hard halt results after the fifth try if an error still exists, 
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Figure 3-31. Card Reader IOCR (#DREAD) Flowchart 
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Procedure File Line Processor—#GRAPR (Figure 3-31.1) 
e@ #GRAPR performs 3 functions: 
1. Reads a procedure file line into the input line buffer 
2. Simulates a card reader not busy condition 
3. Places READ KEY in the input line buffer after all the lines in the procedure 
are processed. 


e This routine overlays the keyboard routine (DEPRES) when the input mode is 
procedure file rather than keyboard or cards. 


e Entry points to #GRAPR are: 


1. | GRAPRO-—Reads one SDF unpacked line. This entry is the same as enabling 
and unlocking the keyboard when input is from the keyboard. 


2. $$CDBS—Simulates a test for completion of the card read (not busy). 


#GRAPR is loaded to main storage by the work file update/crusher (#GUFUD) and 
overlays the keyboard routine (DEPRES) when PROCEDURE FILE is specified. 

The calling program branches to GRAPRO to read a procedure file line. #GRAPR 
extracts sequential procedure text lines unpacked and stripped of SDF fields and puts 
them in the input line buffer. The index register (@XR) points to the next binary line 
number. #GRAPR returns to the calling program after the procedure line is in the 
input line buffer. 

$$CDBS is entered to simulate a check for a card not busy condition. The indicator 
#KYBSY is reset to zero to indicate a not busy status. #GRAPR ‘then returns to the 
calling routine. 
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#GRAPR | 
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Figure 3-31.1. Procedure File Line Processor (#GRAPR) Flowchart 
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CRT I/O Routine—#DSPLY (Figure 3-32) 
e DSPLYN is the IOCR used for displaying output to the CRT. 


e It is used in place of (or with) DPRINT. When the CRT is designated as the system 
printer, #DSPLY is used. When both the matrix printer and the CRT are designated 
as the system printer, DPRINT and #DSPLY are used. 


e Calling sequences to #DSPLY are: 


Calling sequence for system printer: 

B $SPRNT 

DC AL2(PPL) PPL is the address of the print parameter list (Figure 5-23), 
Calling sequence for a direct call to print on the CRT: 

B DSPLYN 

DC AL2(PPL) PPL is the address of the print parameter list (Figure 5-23). 
Calling sequence for a direct call to print on both the CRT and matrix printer: 

B DSPY MP 

DC AL2(PPL) PPL is the address of the print parameter list (Figure 5-23), 
Calling sequence used to clear the CRT screen: 


B DSPCMD 


e The address in the calling sequences must be relocated by the value in $EXFTR. 


This routine is normally called via the nucleus interface $SPRNT, which decides the 
device to be used for output. DSPLYN handles all functions used by DPRINT plus 
additional features for the CRT. If these additional functions are used, the calling 
program must know that the CRT is being used. 


Printer/CRT Functions 


e The following functions can be performed on the matrix printer and the CRT: 


Print: Data is displayed starting at the current display position and continuing, line by 
line, until all characters have been displayed. 


Print and Return: This function is the same as print, except that the next position to be 
displayed is at the start of the next line. 


Return: The next position to be displayed is at the start of the next line. 


Tab Left/Tab Left and Index: The CRT cursor (next print position) is moved to the left 
(backspaced) one position. No indexing is done. If the cursor reaches the left position of 
the statement and another tab left is issued, the cursor remains there. 


Tab Right: The cursor is moved right the desired number of positions, If the physical 
right margin is encountered, the cursor is moved to the left margin and the displayed 
lines are indexed. 


Wait: This function tests the CRT for errors. 
e The following function is for CRT use only: 


Roll Down and Print: The displayed lines are rolled down and the new data is displayed 
on the top line. A maximum 64-byte character string can be used with this function. 
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Figure 3-32, CRT IOCR (#DSPLY) Flowchart (Part 1 of 2) 
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Figure 3-32, CRT IOCR (#DSPLY) Flowchart (Part 2 of 2) 
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Maintenance Program Load Trace—#ZTRAC (Figure 3-33) 


e #ZTRAC is called to print the program header of every program loaded by the system 
nucleus (NBLOAD) when the branch in NBLOAD is active. 


e To reverse the trace program to the opposite status, enter maintenance utility mode, 
key in a T, and press the return key. 


#ZTRAC is loaded and executed on each entry to NBLOAD before the requested pro- 
gram is loaded to core (see Figure 3-33). #ZTRAC is loaded to the same core address as 
the requested program. 

#ZTRAC reads the first sector of the program being loaded. The first six characters of 
this sector are displayed on the matrix printer at the physical left margin. 


#ZTRAC 
#ZTRAC 


READ SECTOR AND PRINT HEADER 


1. Calculate I/O buffer address. 
2. Read first SCTR of transient to 1/O buffer (DKDISK). 

3. Return printer carrier to hardware left margin, print transient header 
and return to software left margin. 


Printer 
Error 


ZTRERR 


ERROR RECOVERY 


Set up OBR error entry. 

Retry print operation. 

lf error occurs on retry, set $HRDER on in $1OIND. 

Set $ERPND on in $INDR2 for error logging transient, NERLOG. 


SAN = 


ZTR200 
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Figure 3-33. Maintenance Program Load Trace (#ZTRAC) Flowchart 
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KEYWORD PROGRAMS 
e Keyword programs are described in alphabetical sequence. 


ALLOCATE Keyword Program—#KALLO (Figure 3-35} 
e #KALLO defines data file attributes for the BASIC program in the work file. 


e The assembly of #KALLO contains these major source modules: 


KALLOC—Mainline logic, Figure 3-35 
SVOLID-—Search volume-ID table, Figure 3-76 
SGETDB-Search password directory, Figure 3-77 
SRCHFN-—Search user directory, Figure 3-78 
SFINDF—Find library file, Figure 3-83 
SURCHN-Search null directory, Figure 3-81 
STUFID—User directory insert, Figure 3-80 
DL2ICS—Disk logical IOCS, Figure 3-70 


#KALLO will load #SPACK, Figure 3-86, when disk space can be obtained by packing 
the file library. #SPACK loads, and returns to, #KALLO. 
Functions of #K ALLO are: 


1. Build a user directory entry to reserve space for NEW, PERMANENT, DISK 
files, 

2. Update the work file I/O record with data file information from the command 
parameters. This record is used at execution time by the GET/PUT routines to 
define the I/O device and disk location, if the device is disk, for data files ref- 
erenced by the BASIC program. 


KALLOC builds an entry for the system work file I/O record (Figure 3-34), 
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Len escripti 
Displacement : eal 
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GET/PUT name 
SCRATCH file size 
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Password 

Filename 
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Note: Each active entry must define a device code and GET/PUT 
name. The content and meaning of the other fields depend 
upon the device code, 
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Figure 3-34, Entry for 1/O Record 
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#KALLO 
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Call $DISKN to read the 1/O record. 
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Call SUFFER to check the file-specification. 
Call SALPHA to check the I/O filename(s). 
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a) Check for duplicate parameters, 
b) Check for conflicting parameters. 
. Call C4BIN2 to convert space specified. 
. Call SCSTRG to check file-header, 


TPWNS 


wo 


KAL100 


SEARCH I/O RECORD AND INSERT ENTRY 


. Search 1/O record for 1/O filename(s). 
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If a permanent disk file specified, 
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Call $DISKN to write the I/O record. 
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PROCESS PERMANENT DISK FILE 


. Exit to $CAERK if errors. 
Resolve password and disk-label. 
If an old file, 
Call SFINDF to search for specified file. 
If file found exit to $CAERK. 

If no disk-label specified (Two-Star file), 
call SFINDF again to find first’/‘next' disk. 
. Call DL2ICS to read the null directory. 

Call SURCHN to search for null space in file 
library. 

If contiguous space not available: 

a) If total space available but fragmented 
b) If no disk-label specified, 
c) Exit to $CAERK to load #ERRPG. 
10. Call STUFID to make new user directory entry. 
. Call DL2ICS to write the null directory. 

. Call DL2ICS to write an end-of-file sector. 
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Figure 3-35. ALLOCATE Keyword Program (#KALLO) Flowchart 
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CALL Keyword Program—#KCALL (Figure 3-35.1) 
e #KCALL calls procedure files from the user library. 
¢@ The assembly of #KCALL contains these major source modules: 
KCALLN—Mainline logic, Figure 3-35.1 
GRABIT—Work file input, Figure 3-74 
SFINDF—Find library file, Figure 3-75 
SVOLID-—Search volume-ID table, Figure 3-76 
SGETDB-Search password directory, Figure 3-77 
SRCHFN-Search user directory, Figure 3-78 
The functions of #KCALL are: 
1. Syntax check the CALL command 
2 Find a saved procedure file in the user library 
3. Copy the procedure file to the temporary procedure save area on disk 
4 


Initialize indicators in the system nucleus for the call sequence 
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#KCALL 
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Exit to SFINDF to find saved file. 
Set up DLP and file size for DL2ICS use. 
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the last modified date file. 

2. Exit to DL2!CS to write file to temporary 

SPF work area. 


INITIALIZE NUCLEUS POINTERS 


Set 3 nucleus indicators to start of 
procedure file in temporary SPF area. 
Set $READY in $INDR2 to off. 

Set SIOYES in $KEYCD to off. 

Set $CARDI in $KEYCD to on. 

Set $CALLI in $DBGUF to on. 

Set $CLBFR in $INDR3 to on, 

Exit to $SPRNT for print-wait function. 
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Figure 3-35.1. CALL Keyword Program (#KCALL) Flowchart 
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CHANGE Keyword Program—#KCHAN (Figure 3-36) 


e #KCHAN alters a previously entered line without reentering the entire line. 
@ The assembly of #KCHAN contains these major source modules: 


KCHANG—Mainline logic, Figure 3-36 
GFINDN—Locate work file disk block, no flowchart 
GRABIT—Work file input, Figure 3-74 
SDLIST—List data files, no flowchart 
DL4ICS—System work file IOCS, Figure 3-70 


The CHANGE command is used to alter a previously entered line without retyping the 
entire line. If a line number parameter is present, the specified line number from the 
work file is changed. If no line number is present, the last line entered containing a 
syntax error is changed. The line may be a file line or a system command. 

4KCHAN performs the text replacement on the specified line and then prints the 
changed line. When the line is printed, the carriage is not returned. At this point, the 
system operates as if the user has just entered the line printed by the CHANGE com- 
mand but has not yet entered the carriage return. The backspace and tabulate keys may 
now be used to modify what appears to be the original line. When the operation is ter- 
minated by a carriage return, the changed line is accepted as a normal keyboard input 
line and the appropriate action is taken. If the changed line exceeds the current width, 
an automatic carriage return is given. The same procedure is followed if the command 
is input from the data recorder. 

The optional character string constant parameters define the text changing to be per- 
formed. In addition, further changes may be performed with the use of the FIRST or 
ALL parameter, Basically, the first occurrence in the line of the first character string 
constant is replaced by the second character string. If ALL is specified, all occurrences 
of the first character string are replaced by the second character string. 

Character strings can be of different lengths. The portion of the original line following 
the text to be changed is moved to immediately follow the replacement string in the new 
line. If the second character string is missing, it is assumed to be a null string; the first 
string, and everything following, is eliminated from the line. (This is not the same as 
replacing the first string with blanks.) If the first character string parameter is the null 
string, the second string is inserted before the first character in the original line. 

A line must be present at the disk address equated to #@#BAD (bad-line buffer) if no 
line number parameter is present. The line is assumed to be in the active work file if a 
line number parameter is present. 
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#KCHAN 


KCHO01 


SYNTAX CHECK AND ACCUMULATE PARAMETERS 


. Convert line number specified to binary using module C4BIN2. 

. If character string(s) are specified, use SCSTRG to syntax check and 
move character strings. 

. Set indicators for specified parameters. 


. Exit to $CAERK (error program) if any syntax errors occur, 
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File 


No 
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CONVERT DATA 

1. Call module SDLIST to convert data items to external 
format. 


KCH110 


CHANGE CONTENT OF LINE 


. Compare character strings and/or make requested changes to fine. 
. If changed line exceeds 243 characters, output message via $SPRNT and 


exit. 
. Make changes until EOS is encountered. 


KCH200 


SET UP CHANGED LINE 


Move changed line to input line buffer ($$INLN). 

5 Print line via $SPRNT with carriage return if: 
e@ Changed line exceeds width, 
e Change command was input from data recorder. 

3. Print line via $SPRNT and enable user to enter data from keyboard 
via $$PRES. 

. Set nucleus indicator to inhibit ready message. 


#GUFUD 
Figure 3-22 
Via $CARPL 


Figure 3-36. CHANGE Keyword Program (4KCHAN) Flowchart 
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READ LINE SPECIFIED 


1. Call GFINDN to locate requested 


2. Call GRABIT to read line. 


#GUFUD 
Figure 3-22 
Via $CARPL 
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Figure 3-24 
Via $BLOAD 
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CONDITION Keyword Program—#KCNDI (Figure 3-37) 


e #KCNDI displays current system status information on the device assigned as system 
printer, 


e The assembly of #KCNDI contains these major source modules: 


KCNDIT—Mainline logic, Figure 3-37 
DLPRNT-—IOCS for output, Figure 3-71 


#KCNDI displays the following current system status information derived from the con- 
tents of the system communication area (Figure 5-1) and disk areas (Figure 5-2). 


Whether or not a password is logged-on. 

Whether or not a disk label is logged-on. 

Status of the disk-label table. 

Date, 

Left margin and width values for the printer. 

System mode. 

Name of suspended BASIC program (if any). 

Status of the system work file. 

Information about the file in the system work file (name, status, type, number 
of lines, number of disk units, etc.). 

10. Status of the system configuration record. 

11. Information concerning the files currently allocated (device, GET/PUT filename, 


etc.) if any exist. 
#KCNDI 


SYNTAX-CHECK INPUT LINE AND PERFORM INITIALIZATIONS 


SO 00S SR We 


1. Exit to $CAERK to load #ERRPG (the error program) if a dash 
immediately follows the CONDITION keyword. 

Branch to KCN100 if EOS (preceded by optional blanks) follows the 
keyword. 

Call SCKOUT (entry point at SCOUT) to syntax-check the specified 
output device. 

Exit to $CAERK if SCKOUT finds a syntax error. 

. Set indicator in system communication area to ignore the roll- 

down key. 

Call SCKOUT (entry point at SCKDEV) to insure the presence and 
working-order of the output device specified, and ready the device for 
use. 


2 ap wln 


BR1080.1 


Figure 3-37. CONDITION Keyword Program (#KCNDI) Flowchart (Part 1 of 2) 
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KCN110 


ACCUMULATE AND PRINT SYSTEM STATUS INFORMATION 


1. Check the appropriate indicators in the system communication area 
(NUCLES) for the following information: 

a) Password and disk label 

b) Disk labels on system 

c) Current date 

d) Left margin and width 

e) System mode 

f) Workfile status 

g) Configuration record 

Check the suspended program status by reading the suspended program 
sector at disk address #$#SSA. 

. Check the workfile allocated information by reading the input/output 
record starting at disk address #@#IOS. 

Call DSVPRI, the DLPRNT interface program, to save or print a tine. 
After all information has been secured and printed, branch to DLPRNT 
to wait for the last line (a blank line). 


AR wo NV 


#GUFUD 
Figure 3-22 
Via $CARPL 
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Figure 3-37, CONDITION Keyword Program (#KCNDID Flowchart (Part 2 of 2) 


DELETE Keyword Program—#KDELE (Figure 3-38) 
e Three options that #KDELE can perform are: 


1. Delete a line number list from an active file in the work file (passes a delete 
parameter list, Figure 5-26, to #GUFUD to do this). 

2. Delete a file linked to a specified password. 

3. Delete all files, linked to a specified password, that are not pooled or protected. 
The password is also deleted if ail files linked to it are deleted. 


e The assembly of #KDELE contains these major source modules: 


KDELET—Mainline logic, Figure 3-38 
DL2ICS—Disk logical IOCS, Figure 3-70 
STORIN—Null directory insert, Figure 3-79 
SFINDF—Find library file, Figure 3-75 
SGETDB-—Search password directory, Figure 3-77 
SRCHFN-—Search user directory, Figure 3-78 
SVOLID—Search volume-ID table, Figure 3-76 


As each file is deleted, the disk space occupied is linked into the null directory. #KDELE 
loads #SPACK, Figure 3-86, to pack the file library if the null directory is full. #SPACK 
loads, and returns to, #KDELE. 
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#KDELE 


Keyword 
Followed 
By Blank 


No 


Yes 


KDE170 


#ERRPG 
Figure 3-17 
Via $CAERK 


#ERRPG 


Figure 3-17 KDE500 Yes 


No Via $CAERK 
SEARCH PASSWORDS AND 
GET FIRST USER BLOCK 


1. Prime SGETDB to search for 
Yes logged on users password. 
KDEO75 . Exit to $CAERK with 


hard halt if not found. 
CHECK LINE # LIST . Read in null directory for 


Numeric 
Parameter 


space relinquish (DL2ICS), 

. Read in first user block for 
file process (DL2ICS) and 
also linked block. 


1, Enter SLLIST for tine-list 
syntax check and conversion. 


2, Supply list to GUFUDI. 
3. Set GUFUDI indicators, 


KDE200 


SYNTAX CHECK AND FIND 
FILE 


1. Enter SUFFER to syntax 
check File Specification. 

2. Syntax remainder of command 
line, 

3. Exit to $CAERK for invalid 
syntax or specification of * 
file. 

4. Enter SFINDF to search for 
file. 

5, Exit $CAERK if file or 
password is not found or if 
file is pooled or protected. 


#GUFUD 
Figure 3-22 
Via $CARPL 


KDE245 


PROCESS DELETION 


. lf blocks are linked, read in 
linked block until an unlinked 
block is found (DL2ICS). 

. Index to last entry in unlinked 
block. 

. Overlay ‘‘Deleted” entry with 


last entry. 

. Relinquish space to null 
directory (STORIN) or pack 
directory if necessary 
(SPACKU). 

. Write back modified user block 
(DL2ICS). 


#GUFUD 
Figure 3-22 
Via $CARPL 
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Figure 3-38. DELETE Keyword Program (#KDELE) Flowchart (Part 1 of 2) 
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GET ENTRY 


KDE560 


File 
Pooled or. 
Protected 


KDE600 


SAVE ENTRY 
Save entry and print NOT 
DELETED. 


1. Relinquish space to null 
directory via STORIN or 
pack null directory if 
necessary via SPACKU., 

2. Print file deletion note via 

$SPRNT 


All 
Entries 
Processed 


Files 
Deleted 


KDE690 


SAVE ENTRIES 


Save pooled or protected entries. 


WRITE DIRECTORIES 


| Write null, user, and password 
| directories, 


KDE900 
DELETE PASSWORD 


Delete password directory entry 
and modify LOGON status and 
write directories. 


#GUFUD 
Figure 3-22 
Via $CARPL 
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Figure 3-38, DELETE Keyword Program (#KDELE) Flowchart (Part 2 of 2) 
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DISPLAY Keyword Program—#KDISP, #KDOVR (Figure 3-39) 


e #KDISP syntax checks the DISPLAY command line, assuring valid syntax for the 
DISPLAY overlay #KDOVR. 


e #KDOVR displays the current values of program variables during a program execu- 
tion pause state or following the termination of program execution. 


e The assembly of #KDISP contains these major source modules: 


KDISPL—Mainline logic, Figure 3-39 
SCKOUT—Check output specification, no flowchart 


The assembly of #KDOVR contains these major source modules: 


KDOVRL—Mainline logic, Figure 3-39 
DL4ICS—System work file IOCS, Figure 3-70 
DLPRNT-—IOCS for output, Figure 3-71 


The DISPLAY command line is syntax checked. When correct syntax is assured, the 
overlay initialization is performed. If in pause mode, the virtual-memory pages in the 
paging module are returned to virtual memory. The symbol tables are placed in core, 
and the overlay #KDOVR is loaded. 

#KDOVR converts each specified variable or array element symbol to a virtual address. 
The element value at this address is retrieved from virtual memory, converted to display 
format, and displayed on the matrix printer, CRT, or system printer. The All parameter 
causes each scalar variable to be displayed. Symbol format ‘A(*)’ causes each element in 
array A to be displayed according to current array dimensions. Symbol format ‘A$(*)’ 
causes each element in array A$ to be displayed. 
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#KDISP 


KDIO002 


KDISPL SYNTAX CHECKING 


1. Syntax check input line. 
2. Exit to $CAERK on errors to load HERRPG. 
3. Go to SCKOUT to set output status device. 


KDI110 


PUSH VIRTUAL MEMORY PAGES 


KDI120 


COMPLETE OVERLAY INITIALIZATION 


1. Get symbol and array tables. 

2. Get function and array tables. 

3. Exit to $RLOAD to load #KDOVR (the display 
overlay). 


SRLOAD 
Figure 3-14 


ey 


1. Set parameter list for paging module. 
2, Enter IPGMDL to push virtual memory. 


KDI1421 


DISPLAY PROCESSING ROUTINE 


. Restore line pointer to first line variable. 
. Set program for long precision if required. 


. Convert the value to print format. 


. Enter DLPRNT to print the output buffer. 


A=SSoOnagT RwNo 


. Exit to $CAERK on errors to load HERRPG. 


#KDOVR 


If ‘All’ switch is on, display all scalar variables. 
Determine virtual address of the variable at the 
line pointer. 

Enter DL4ICS to get the value of the variable. 

Move the value to a conversion bucket. 


Format the output buffer. 


Increment line pointer to next possible variable. 


At 
End of 
Line 


#GUFUD 
Figure 3-22 
Via $CARPL 
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Figure 3-39, DISPLAY Keyword Program (#KDISP) Flowchart 
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EDIT Keyword Program—#KEDIT (Figure 3-40) 
e #KEDIT places a specified file into, or clears, the work file. 


e The assembly of #KEDIT contains these major source modules: 


KEDITN—Mainline logic, Figure 3-40 
SVOLID—Search volume-ID table, Figure 3-76 
SGETDB-—Search password directory, Figure 3-77 
SRCHFN-Search user directory, Figure 3-86 
SFINDF—Find library file, Figure 3-75 
GCLEAR-—System work file clear, no flowchart 
DL2ICS—Disk logical IOCS, Figure 3-70 
DL4ICS—System work file IOCS, Figure 3-70 


Functions of #KEDIT are: 


1. Move the specified file from the user, one-star, or two-star library file to the work 
file. The work file is cleared and #KEDIT exits if only a user filename is specified 
and cannot be found. 

2. Set the work file status indicators, $SINDR1 in the nucleus communications area, 
to reflect the status of the work file. 

3. Load, and exit to, the compiler (#BCOMP) if the system command was RUN or 
STEP. 

4, The data buffer, used to transfer the file, overlays routines in #KEDIT that were 
used to find the file. 
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#KEDIT 
KED500 


SYNTAX CHECK AND FIND THE FILE 


Call SUFFER to extract filename from the com- 
mand statement located in the primary input buffer. 
Perform syntax checks on the command statement. 
Call SFINDF to find the requested file. 

Exit to $CAERK on errors. 

Mask inquiry request. 


afWN 


No 
File 
Found and No 
Password 


Yes 


No 


KED600 


CREATE A NULL WORK FILE 


. Call $SPRNT for new-file message. 
: Cali GCLEAR to initialize the work file. 
3. Set indicators in nucleus communications region, 
4, Exit to $CARPL to reload #GUFUD. 


KED700 


CHECK FILE FOUND, SET-UP TRANSFER 


Exit to $CAERK to load $ERRPG if errors. 
Set indicators in nucleus communications region. 
Call $SPRINT to print copied-to-work-file message. 
Call DL2ICS to start seek to library file. 

Initialize for transfer of library file to work area. 
For EDIT, call $SPRNT to print file messages. 


PARON= 


KED100 


TRANSFER FILE TO WORK AREA 


Establish available core for file transfer buffer. 

; : Using DL2ICS to read library file and DL4ICS to 
write work file transfer data. 

tf FIT and/or |/O record are to be copied, write 
to work file using $DISKN. 

. Exit to $CARPL to reload #GUFUD and I/O 
routines if command is EDIT. 


a 


PRIME AND LOAD COMPILER 


Unmask inquiry requests. 
Call $DISKN to access first disk block for compiler. 
Set indicators in nucleus communications region. 

Exit to $RLOAD to load and execute compiler. 


BW N= 


BON> 


#BCOMP #GUFUD 


Figure 3-119 
Via $RLOAD 


Figure 3-22 
Via $CARPL 
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Figure 3-40. EDIT Keyword Program (#KEDIT) Flowchart 
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ENABLE/DISABLE Keyword Program—#KENAB (Figure 3-41) 
© #KENAB modifies the type code of statements in the work file. 


e The assembly of #KENAB contains these major source modules: 


KENABL—Mainline logic, Figure 3-41 
GRABIT—Work file input, Figure 3-74 
GFINDN—Locate work file disk block, no flowchart 
DL4ICS—System work file IOCS, Figure 3-70 


If the DISABLE command is issued, KENABL modifies the type code of each statement 
in the line number list so that it is flagged and ignored in future compilations or input 
operations. 

If the ENABLE command is issued, the type code of each statement in the line number 
list is modified so that previously disabled statements are again enabled for compilation 
or input. If the line number list is omitted from the ENABLE command, all previously 
disabled statements currently in the work area are enabled. 
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#KENAB 


SYNTAX CHECK AND CONVERT LINE NUMBERS 


. Exit to $CAERK (to load the error program) if the 
keyword was immediately followed by: a dash. 
. Call SLLIST to syntax check and convert the line- 


number-list, if one is specified. 
. Exit to $CAERK if SLLIST found an error. 
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A Line-Number 
List Found 


KEN135 


. Move a line number of GFILNO for GFINDN. 
2. If this line is followed by EOS, branch to KEN150. 
3. If this line is followed by a dash (indicating a line- 

number range), set range indicator on, set pointer 
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to modify the type code, branch to KEN 155 if 
EOS is indicated, else branch to KEN 135, 
4. Else, branch to KEN170 to modify the type code 
and branch to KEN135 to get the next line 
number. 


KEN150 
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KEN170 to 
Modify the 
Last Line 
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Only 


GRABIT 


Write back 
last line 


#GUFUD 


Figure 3-22 
Via $CARPL 


; ENABLE THE ENTIRE WORK FILE 


, Exit to $CAERK if DISABLE was the specified 
keyword. 

. Move fine number X‘0000’ to GFILNO for 
GFINDN, 

. Call GFINDN to prime buffers for GRABIT. 
Set GRABIT code to skip statements. 

Set ENABLE bit on in statement type code. 
(KEN125) 
Exit to KEN155 if EOF is indicated, 
Call GRABIT to get next source tine. 
. Branch to KEN125. 


KEN170 
KEN170 


ROUTINE TO MODIFY TYPE CODE-—part | 


. Save return address. 

. Mask against interrupts. 

. Call GFINDN to find the next line number. 

. If this is the line number to modify, branch to 
KEN185. (this statement labelled KEN180) 
. If this number is greater than the one specified, 
branch to KEN210. 

Else, branch to GRABIT to get the next source 
line. (GRABIT‘s code set to skip last statement). 
Branch to KEN180 to test the new line number. 


OND TAW N 


N 9 Om Bona 


KEN185 


ROUTINE TO MODIFY TYPE CODE-—part I! 


1. Set appropriate indicator on in type code, 

2. Go write back line, if a range is not indicated, 

3. if range is indicated, continue processing lines. 

4, (label KEN210) If range is not indicated, exit 
from loop, 

5, If the referenced number is in the range, set on 
the appropriate type code indicator and get next 
source line, 

7, If entire range has been processed turn range 
indicator off, 

8. Cali GRABIT (with code to write back only) to 
write back the modified line, 

. Return to point where called. 


Return 
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Figure 3-41, ENABLE/DISABLE Keyword Program (#KENAB) Flowchart 
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ENTER Keyword Program—#KDNTE (Figure 3-42) 


e #KDNTE sets the system mode of operation to disk system management program, if 
it is available on the system. 


e The assembly of #KDNTE contains these major source modules: 


KDNTER-—Mainline logic, Figure 3-42 
SUPDAT-—Statistical error recording, no flowchart 


If the disk system management program (SCP) is specified, and it shares the same volume 
as the current BASIC system program area, the disk system management IPL bootstrap 
program is loaded from cylinder 0. 


KDN400 


#KDNTE 


SYNTAX CHECK INPUT LINE 


. Exit to $CAERK to load =ERRPG (the error program) if a dash 


immediately follows the keyword. 


. Exit to $CAERK if no parameter is specified. 
. Exit to $CAERK if a parameter other than SCP is specified. 


Yes Is No 
Parameter 
= SOP 


#ERRPG 
SWITCH MODE. TO SCP Figure 3-17 


1, 
2. 


3. 


Read volume label from disk used to IPL system. 


Via $CAERK 


Exit to $CAERK if disk system management 
program is not available on this disk. 

Read disk system management program nucleus 
initialization program from disk into core 


location X‘1200’. 


tables on disk. 


. Branch to SUPDAT to update the error log 


. Set disk system management program as primary 


IPL in core-resident nucleus initialization program. 
Turn off CRT if it is on system. 


Exit to disk system 
management 


program 


Figure 3-42, ENTER Keyword Program (#KDNTE) Flowchart 


EXTRACT Keyword Program—#KEXTR (Figure 3-43) 


e@ #KEXTR saves user specified line numbers in the work file. 


e The assembly of #KEXTR contains this major source module: 


KEXTRC—Mainline logic, Figure 3-43 


#KEXTR retains the line number list in the active work file by deleting all unwanted 
line numbers. The line number list is converted to a delete parameter list (refer to Figure 
5-26). The actual deletion of the lines from the work file is performed by #GUFUD, 
Figure 3-22, 
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KEX100 


a F BN 


LOW ORDER SUBROUTINE 


. If location referenced by PT1 + 1 is a dash, add 


3 to PT1. 


Set the line number referenced by PT1 at the loca- 
tion referenced by PT2. 
Add 1 to the line number at the location refer: 


enced by PT2. 


If PT1 + 1 is referencing an EOS, go to EXIT 


routine. 


KEX500 


= 


Ooo PY 


EXIT ROUTINE 


. lf the line number referenced by PT2 is less than 
9999, add 3 to PT2. : 

If the line number referenced by PT2 is greater 
than 9999 , subtract 2 from PT2. 

Set an EOS in the location referenced by PT2 + 1. 
Exit to $CAERK if the delete list is larger than one 


sector. 


Set the nucleus indicator to DELETE on. 
Set the nucleus indicator to load #GUFUD only. 


Add 2 to PT1. 


#KEXTR 


#KEXTR 


SYNTAX-CHECK INPUT LINE AND CONVERT LINE-NUMBER LIST 


1. Exit to $CAERK to load the error program (#£RRPG) if a dash 
immediately follows the keyword, or if no line-number list is specified. 
Set the error code in $CAERR. 

2. Call SLLIST to syntax-check the line-number list and to create a line- 
number table, SLLINE. 

3. Exit to $CAERK to load #ERRPG (Figure 3-17) if SLLIST finds an 

error condition. 


PROCESS THE ‘EXTRACT'ION--FORM A ‘DELETE’ LIST 


1. Initialize one pointer (PT1) to the first line number in SLLINE and 
another pointer, PT2, to the first available byte in the secondary input 
buffer (X’1C00’). 

2. If the first entry in SLLINE is the range 0 through 9999, exit to 

$CARPL to load #GUFUD (Figure 3-22), 


Is 
The First 
Line Number 
Zero 


oO POND 


jocation referenced by PT2. 


#GUFUD 
Figure 3-22 
Via $CARPL 


Figure 3-43. EXTRACT Keyword Program (#KEXTR) Flowchart 
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HIGH ORDER SUBROUTINE 


Move 0 to the location referenced by PT2. 

Save line number referenced by PT1. 

Subtract 1 from saved line number. 

If saved line number equals line number referenced 
by PT2, go to LOW ORDER subroutine. 

If saved line number is less than the line number 
referenced by P72, subtract 2 from PT2 and 
enter the LOW ORDER subroutine. 

6. Else, set a dash in the location referenced by PT2 
+ 1,add 3 to PT2, and set saved line number in 


. Enter the LOW ORDER subroutine. 


GO Keyword Program—#KGOSL (Figure 3-44) 


e@ #KGOSL continues or aborts the execution of a BASIC program when the program 
is in an execution pause state. 


@ The assembly of #KGOSL contains this major source module: 


KGOSLO—Mainline logic, Figure 3-44 


#KGOSL restores core from the execution save area via the restore function of the sys- 
tem nucleus ($PAUSD), Execution mode indicators are set in the system communication 
area as a result of user specified parameters. 


#KGOSL 


KGO100 


SYNTAX CHECK TO DETERMINE TYPE OF GO COMMAND 


1. Exit to $CAERK to load #ERRPG if program is not in pause state. 
2. Enter SCANIT to scan across blanks. 
3. Exit to $CAERK to load #ERRPG on syntax errors. 


KGO120 


SET ON RESPECTIVE INDICATORS, RESTORE CORE FROM DISK 


. If TRACE parameter, set on trace indicators in Nucleus if original 
mode was trace and exit to $RSTR to restore core from disk. Exit to 
$CAERK to load #£RRPG if original mode is not trace. 

. If ABORT parameter, set on abort indicators in the Nucleus and exit 


to $RSTR to restore core from disk. 

. If RUN parameter, set on run indicators in Nucleus and exit to 
$RSTR to restore core from disk. 

. If STEP parameter, set on step indicators in Nucleus and exit to 
$RSTR to restore core from disk. 

. If no parameters, exit to $RSTR to restore core from disk. ‘ 

. tf no valid parameter found, exit to #ERRPG via $CAERK to print 
error message. 


$RSTR 
Figure 3-12 


BR1087 


Figure 3-44, GO Keyword Program (#KGOSL) Flowchart 
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HELP Keyword Program—#KHELP (Figure 3-45) 


e #KHELP displays text from the help text disk file on the matrix printer, CRT, or 
system printer. 


e Checks release level of help text file against a built-in constant defining the expected 
release level. 


e@ The assembly of #KHELP contains these major source modules: 


KHELPN—Mainline logic, Figure 3-45 
DLPRNT-—IOCS for output, Figure 3-71 
GRABIT—Work file input, Figure 3-74 
DL2ICS—Disk logical IOCS, Figure 3-70 


#KHELP searches a table of keywords (refer to Figure 5-21) which contains entries made 
up of (1) the length of a keyword, (2) a keyword, and (3) a relative address in the help 
text disk file. This address points to the text to be displayed for the corresponding key- 
word, 

When there is no keyword parameter, a predetermined section of text is displayed and 
a choice of responses for further information is shown. Input is enabled and the input 
character is used to index the relative addresses in the EOF record. All nonterminating 
help files are handled in this manner, Help files are displayed until a terminal file is 
encountered via #KHELP or until the function is interrupted via an inquiry request. 

Refer to Figure 5-21 for the format of help text. 
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#KHELP 


SYNTAX CHECK AND SET UP OUTPUT DEVICE 


Check for valid delimiter between command and first parameter. 

. Enter SCSTRG to check for unbalanced quotes and return character 
string. 
Remove imbedded blanks from character string and save packed form. 


. Enter SCKOUT to check for CRT or PRINTER specification. 

. If no keyword was specified, enter SCKOUT at SCKDEV to check 
the validity of the output device and set indicators. 

. On errors, exit to $CAERK to load #ERRPG, 


#ERRPG 
Figure 3-17 
Via $CAERK 


KHE530 


FIND THE DISK WHICH CONTAINS THE HELP TEXT 


Read the VOLUME LABEL from disk in the order F1, F2, R1, R2 and 
"check indicator for HELP TEXT on disk. 

. After locating HELP TEXT (on disk) get address from VOLUME 
LABEL and enter DL2ICS to read HELP TEXT keyword table into 
buffer KHETAB. 

. If HELP TEXT was not found exit to $CAERK to load HERRPGM. 


KHE600 


FIND THE REQUESTED TEXT 


1. Read keyword table at head of text into core using DL2ICS. 


2. Search keyword table for specified keyword. 
3. If itis not found exit to $CAERK to load #ERRPG. 


BRING REQUESTED TEXT INTO CORE 


Prime buffers for GRABIT using DL2ICS. 

> Enter GRABIT to retrieve logical records. 

3. If a valid keyword was specified, enter SCKOUT at SCKDEV to check 
the validity of the output device and set indicators. 


Print 
Record 
PRINT TEXT 


1. Print 1 line using DLPRNT. 
2. Get next record. 


Terminal No 
Text 
ALLOW MULTIPLE CHOICE 
RESPONSE 


. Wait for character input ($$PRES). 
. If input character is invalid print 


#GUFUD 


Figure 3-22 
Via $CARPL 


message using $SPRNT and wait for 
character input again. 


BR1088A 
Figure 3-45, HELP Keyword Program (#KHELP) Flowchart 
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KEYS Keyword Program—#KKEYS (Figure 3-46) 


e #KKEYS lists, assigns, or restores the functions of the command keys. 
e The assembly of #KKEYS contains this major source module: 


KKEYSP-—Mainline logic, Figure 3-46 

Depending on the parameters specified, #KKEYS lists the functions currently assigned 
to the available command keys, assigns a function to an available command key, or 
restores one or all of the IBM-assigned functions to the available command keys. A 
command key is available if it is one of the first 11 command keys and is defined in the 
current configuration record. 

The format of the command key table (##CKTB) is shown in Figure 5-27. This table 
resides in the system program file. A list of the IBM-assigned functions for command 
keys 1 through 11 is contained in Figure 5-28. 
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LIST THE COMMAND KEY TABLE 


1. 


2. 


3. 


Set a pointer to the start of the 


command key table. 


Initialize a counter to the number 


of available command keys. 


Call $SPRNT to print one com- 


mand key number and its 
corresponding command. 
Decrement the counter by 1; 
continue printing until the 
counter is 0. 


READ TABLE 


Call $LOADR to read the command key 
table (##CKTB) into core. 


#KKEYS 


SYNTAX CHECK LINE 


. Call SCANIT to bypass blanks. 

. Calf C4BIN2 to convert the command key number to 
binary if one is specified. : 

. Call SCSTRG to analyze the character constant if one 
is specified. 

. Exit to $CAERK to load the error program if an invalid 
parameter or too many parameters are found, or if one 
of the subroutines detects an error. 


Restore 
single key 


RESTORE SPECIFIED COMMAND KEY 


. Find the command in the internal 


. Set the command length in the com- 


. Move the command text from the 


. If the switch to restore all command 


. Write the command key table back to 


Function 
requested 


Restore 
all keys 


RESTORE ALL COMMAND KEYS 


4. Set a switch to restore all 
command keys. 

2. Initialize command key 

number to 1. 


table. 


table that corresponds to the command the table. 


key. 
mand key table ##CKTB (keys 1, 4, SLOADR. 
or 7 are set to 0) from the internal 
table. : 


internal table to the command key 
table. 


keys is set, increment the command 
key number and repeat this block until 
all available command keys are restored 
from the internal table. 


disk via$LOADR. 


#GUFUD 


Figure 3-22 
Via $CARPL 


Figure 3-46. KEYS Keyword Program (#KKEYS) Flowchart 


ASSIGN A FUNCTION TO A 

COMMAND KEY 

1, Exit to $CAERK to load 

’ the error program if the 
character constant exceeds 
90 characters or if it con- 
tains only blanks. 

2. Set the length of the com- 
mand in the command key 


3. Move the command text to 


4. Write the command key 
table back to disk via 


Assign 
single key 
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LIST Keyword Program—#KLIST, #KLLAY (Figure 3-48) 
e #KLIST displays any type of file contained in the file library (system library file). 


@ The assembly of #KLIST contains these major source modules: 


KLISTN—Mainline logic, Figure 3-48 
GFINDN~—Locate work file disk block, no flowchart 
GRABIT—Work file input, Figure 3-74 
SDLIST—List data file, no flowchart 
DLPRNT-—IOCS for output, Figure 3-71 
DL4ICS—System work file IOCS, Figure 3-70 


e The assembly of the overlay #KLLAY contains this major source module: 


DCDOUT-—Card punch IOCR, Figure 3-72 


| #KLIST displays BASIC programs, keyboard-generated files, procedure files, or DIQeIaIn: 
generated files on the printer, punch, or CRT. 

If the file is listed on the CRT, the user may rollup, rolldown, or popup the file (this 
does not apply to program-generated files), The user may also specify line lists for start- 
ing and ending the LIST function (for CRT, only the initial line reference is used). 

A list control block (LCB) (Figure 3-47), 20 bytes in length and containing all infor- 
mation necessary to contro} the output, is created from the parameters of the LIST 
statement. When the output device is the CRT, a CRT line segment table (Figure 3-47) 
is maintained from elements in the LCB. If the work file contains a program-generated 
file, logical lines are constructed and sent sequentially to the specified devices until 
end of file is encountered. A logical line is device dependent; for example: 


Device Line Length 

5496 Data recorder 96 

Matrix printer (Right margin—left margin) 
CRT 64 

System printer 64 


The rolldown key (command key 14) is not recognized for program-generated files. 

If the work file contains a BASIC program, the file is sent to the specified devices 
under control of the line number list. When CRT is specified, only the initial line ref- 
erence is used, However, the user can rollup, popup, or rolldown the file. Initially, the 
first 14 lines are placed on the screen. From this point, the file may be rolled as desired; 
interruptions are accepted after each line segment is displayed. If end of file on rollup 
or beginning of file on rolldown is encountered, the program waits for an interruption. 
The inquiry request key must be activated to terminate the listed function. 

When the work file contains a keyboard-generated file, the data elements are converted 
from internal floating point to an optimum external format. Each line is then handled 
the same as a BASIC program line. Disabled BASIC statements and lines are shown with 
* preceding the line number. 

No line number is punched if the NO-NUM parameter is specified, the output specified 
is CARD, and the work file contains a keyboard-generateéd file. 

When the parameter CARD is specified, #KLLAY is read into the I/O portion of 
core, #KLLAY contains the card punch IOCR (DCDOUT) and overlays the card 
reader I/O routine #DREAD, 


Hexadecimal Length ae 
Displacement (by tes) xplanation 


File condition 
code 


Start line 


Increment 


Control character 


File line length 
Buffer address 


CRT mode 


Current line 


CRT line segments 
out 


Maximum CRT line 
segments 


CRT mode change 


First line number 


Initial call 
indicator 


Stop line 


Status indicator value: 

X‘00'—Go 

X'01'—Line list exhausted 
X’02'—Beginning of file 
X‘'03'—End of file 

X‘04'—No line list 

Beginning line number of a loop, 


+1 (X‘0001'), except for rolldown, 
then -1 (X'FFFF’) 


X'4F’'—Rolldown 
X'CO'—Rollup or print 


Length of current work file line. 


Current address, into line buffer area, 
that is used in PPL passed to DLPRNT. 
Rolldown—X‘02' 

Rollup—X‘01' 

Current line number being analyzed, 


Count of number of CRT line segments 
displayed from current line, 


Count of number of CRT line segments 
in file line being processed (length/64 + 
1). 


Indicates a change from rollup or popup 
to rolldown and the reverse. 


First line number in work file. Detect 
beginning of file when file is in rolldown 
mode. 

X'01'—First time 

X’00’—Not first time 


Ending line number of a line loop, 


CLST—One 5-Byte Entry per CRT Line (70 bytes total) 
Ps [etstatsfoel{rteleo |w fm |r fis] ss | 


CRT Line Segment Entry 
ih Line Maximum CRT 
a eee ee oa 


Mode-From hexadecimal displacement 09 in LCB 

Current Line-From hexadecimal displacement OA in LCB 

CRT Line Segments Out-From hexadecimal displacement OC in LCB 
Max CRT Line Segments-From hexadecimal displacement OD in LCB 


BR2671 


Figure 3-47, List Control Block (LCB) and CRT Line 
Segment Table (CLST) 
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#KLIST 


SYNTAX CHECK LINE 


1. Syntax check and validate parameters specified using modules 
SCANIT (scan blanks) SLLIST (convert line number list). 
2. \f errors are found, set indicative error message at $CAERR and exit to 
$CAERK. 
. Determine device specified and set indicator in DLPRNT. 


CRT Yes 
Specified 


KLIO70 


SET CRT INDICATORS 


1. Call SCKDEV to set $CMDKY 
only and enable keyboard via 
$$PRES. 

2. Call GFINDN and GRABIT to 

determine first line in file. 


CARD 
Specified 


LOAD CARD PUNCH IOCR © 


Call DL21CS to overlay #DREAD with 
the card punch 1OCR, DCDOUT (#KLLAY). 


Program Generated “e _Basic or Keyboard Data File 
Fite 
KLI380 KLI106 


PROGRAM GENERATED FILE OUTPUT OF DATA OR BASIC FILES 


. Retrieve requested lines via GRABIT and output 
. Call SDLIST to read DL4ICS, convert the data via DLPRNT or DCDOUT. 
items, and output the file via DCDOUT (card . For data files, call SDLIST to convert each line to 
output) or DLPRNT (CRT or Matrix Printer). external representation. 
. At end of file, exit to $CARPL to reload #+GUFUD. . Hf CRT specified, keep track of which lines are on 
the screen so the roll-up, roll-down and pop-up 
interrupts can be handled. 


. If no number is specified, suppress line number for 
keyboard data files going to card. 
. Indicate line disability with an asterisk in column 
one (1). 
#GUFUD . At end of file, exit to $CARPL to reload 
Figure 3-22 #GUFUD, or wait for inquiry request if CRT is 


Via $CARPL being used. 


#GUFUD 


Via $CARPL 
Or $CRIPL 


BR1T091A 
Figure 348, LIST Keyword Program (#K LIST) Flowchart 
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LISTCAT Keyword Program—#KCTLO (Figure 3-49) 


e #KCTLO displays user-specified directory information from the file library (system 
library file). 


e The assembly of #KCTLO contains these major source modules: 


KCTLOG—Mainline logic, Figure 3-49 
DL2ICS—Disk logical JOCS, Figure 3-70 
DLPRNT-IOCS for output, Figure 3-71 
SCKOUT—Check output specification, no flowchart 
DSVPRI—DLPRNT interface, no flowchart 


#KCTLO displays the following directory information on the matrix printer, CRT, or 
system printer, if ALL is specified (otherwise, only the filename and file ID are 
displayed): 

Filename—File ID 

File type 

Date the file was last modified 

Count of lines contained in the file 

Count of sectors the file occupies 

Precision of the file 

Pooled status 

File protection status 

Open/close status 


SERCO ON. Sr. Pe 
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#KCTLO 
KCTO50 


SYNTAX CHECK AND ESTABLISH PRINT DEVICE 


. Determine request type (i.e., *, **, or ALL). 

. Enter SCKOUT to syntax check output device 
requested (KCT175). 

. Enter SCKDEV to set indicators for output 
device (KCT200). 


. Exit to $CAERK for errors. 
. Set indicator for ‘ALL’ (KCT125). 


<> - 
Yes 


SEARCH VOLUME-ID TABLE AND PRINT 
FILENAMES 


KCT400 


. Determine which disks have libraries. 
. Print volume-1D (KCT430). 
. Branch to print subroutine (KCT500) to print 


filenames and headers. 
. Exit to $CAERK if no disk libraries. 


KCT475 


EXIT PROCESSING 


1. Turn off command keys and lights. 
2. Execute WAIT for print. 


#GUFUD 
Figure 3-22 
Via $CARPL 


KCT250 


ESTABLISH USER 


1. Exit to $CAERK if user not logged on. 
2. Prime print routine with user block, 
3. Print (KCT500). 


KCT500 


PRINT FILENAME AND HEADER 


1. Read in linked block if any. 
2, Print (DLPRNT) “no files” if none. 
3. Print filename and header via DSVPRI. 


; PRINT STATUS (via DSVPRI) 


. Date last modified. 

Disk units. 

Number of lines. 

File type. 

Precision 

. Open, pooled, or protected. 


OARYN- 


KCT800 


All 
Files 
Printed 
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Figure 3-49. LISTCAT Keyword Program (#KCTLO) Flowchart 


Licensed Material—Property of IBM 


LOGON/OFF Keyword Program—#KLOGO (Figure 3-50) 


| @ #KLOGO is used to define a password and volume (new or old) to be used for 
subsequent operations. OFF is used to cancel the current password and volume. 


e The assembly of #KLOGO contains these major source modules: 


KLOGON-—Mainline logic, Figure 3-50 
SVOLID—Search volume-ID table, Figure 3-76 
SGETDB-Search password directory, Figure 3-77 
DL2ICS—Disk logical IOCS, Figure 3-70 
SURCHN-Search null directory, Figure 3-81 
SUPDAT-Statistical error recording, no flowchart 


#KLOGO clears the saved bad line area (used by CHANGE), deletes the file in the sys- 
tem work area, and updates the statistical data recorder on the logged-on volume. It also 
clears the CRT if it is configured. 
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#KLOGO 


KLO100 


KLO200 


SYNTAX AND CLEAR PRINT DEVICE 


1. Syntax check command line. 


2, Exit to $CAERK for errors, 


KLO720 


CRT 
Available 


CLEAR CRT 
Clear screen 
of CRT 


PRIME NUCLEUS 


1. Set up $PASWD. 
2. Set up $FILIB. 


3. Set up $USRDR. 
4. Set no work file. 


KLO800 


PROCESS BAD LINE 


Move End of Statement Indicator 
. Write to *BAD SYNTAX 

LINE” disk save area via 

DL2ICS. 


PROCESS TABLES 


KLO300 


SYNTAX CHECK; SEARCH PASSWORD 
DIRECTORY 


. Syntax command line: 

a) Enter SALPH8 for password check. 

b) Enter SALPH6 for volume-ID if specified. 

c) Check for ‘NEW’ or ‘OLD’ if specified and set 


indicator. 
d) Exit to $CAERK for syntax errors. 
. Search password directory: 
a) Prime SGETDB for search only. 
b) Branch to SGETDB. 


Password 
Found 


No 


NEW 
Request 


KLO600 


Maximum 
Password 
(83) 


#ERRPG 
Figure 3-17 
Via $CAERK 


#ERRPG 
Figure 3-17 
Via $CAERK 


ee 
les via SUPDAT 
tables via CREATE PASSWORD AND USER ENTRIES 


CLEAR PRINT DEVICE 


Eject clean print page if printer 
is system print device (only 
OFF). 


#GUFUD 
Figure 3-22 
Via $CARPL 


. Prime disk routine (DL2ICS) and read null 


directory. 


. Search null directory (SURCHN) for two sector 


data block and error exit to $CAERK if not found. 


. Build new password entry and write password and 
null directories back to disk via (DL2ICS). 
. Create user block and write to disk (DL2ICS). 
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Figure 3-50. LOGON/OFF Keyword Program (#KLOGO) Flowchart 
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MERGE Keyword Program—#KMERG (Figure 3-51) 
e #KMERG merges statements from a library file with the file in the system work file. 


e@ The assembly of #KMERG contains these major source modules: 


KMERGE—Mainline logic, Figure 3-51 
GRABIT—Work file input, Figure 3-74 
GPUTIT—Work file output, Figure 3-73 
SVOLID—Search volume-ID table, Figure 3-76 
SGETDB-Search password directory, Figure 3-77 
SRCHFN-Search user directory, Figure 3-78 
SFINDF-—Find library file, Figure 3-75 
DL2ICS—Disk logical IOCS, Figure 3-70 
DL4ICS—System work file IOCS, Figure 3-70 


Functions of #KMERG are: 
1. Merge statements from a saved library file with the active file in the system work 
file. 


2. Write the merged file temporarily in virtual memory and build a line number 
table in core, 

3. Load and exit to #KOVME, Figure 3-61, to renumber the merged file and write 
it back to the system work file. 
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3-74 


#KMERG 


#KME RG”. 


SYNTAX CHECKING 


. Call SUFFER to syntax check filename. 
y Collect numeric parameters, 


3. Call C4BIN2 to convert numeric parameters to 
binary. 


KME180 


FETCH SAVED FILE INFORMATION 


1. Call SFINDF to find saved file, 
2. Check protection and compatibility of files, 
3. Set up DPL and file size for DL2ICS use. 


#ERRPG 
Figure 3-17 
Via $CAERK 


KME380 


TRANSFER FIRST PORTION OF WORK AREA FILE 


. Call GRABIT to return work area file line. 
. Call GPUTIT to write line to virtual memory. 


. Put line number in table. 
. Repeat until breaking point reached. 
. Save GRABIT and buffers on disk. 


KME220 


TRANSFER SAVED FILE TO VIRTUAL MEMORY 


Reinitialize GRABIT to saved file. 
c Call GRASBIT to return file lines. 
. If file line is within range call GPUTIT to write to 
virtual memory. 
. Put line number in table, set on bit 1. 
. Repeat until high line number is reached. 


ak WN= 


KME300 


TRANSFER LAST PORTION OF WORK AREA 
FILE 


. Restore saved GRABIT. 

. Call GRABIT to return work area file line. 

. Set on bit 0 and put line number in table. 

. Call GPUTIT to write file line to virtual memory. 
. Continue until EOF encountered, 


OhWN= 


#KOVME 


Figure 3-61 
Via $RLOAD 


BR1094 
Figure 3-51, MERGE Keyword Program (4KMERG) Flowchart 
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MOUNT Keyword Program—#KMOUN (Figure 3-52) 
e #KMOUN notifies the system that a different volume is mounted on R1 or R2. 


e The assembly of #KMOUN contains these major source modules: 


KMOUNT-Mainline logic, Figure 3-52 
SUTOBA-—Switch system mode, no flowchart 
MINITL—Read the disk label if the disk has been initialized, no flowchart 


#KMOUN reads the volume label to verify that the mounted volume-ID matches the user 
specified volume-ID. If the drive is R1, and if R1 and F1 both contained valid system work 
areas before R1 was removed, the volume label of the disk specified in the MOUNT command 
must also contain a valid system work area; otherwise, an error message results. The volume- 
ID table in the nucleus communications area (refer to Figure 5-9) is updated. If any scratch file 
entries exist in the VTOC on the pack being mounted, #KMOUN deletes them. 

The disk drive must be ready before #KMOUN can read the volume label. 


#KMOUN 


SYNTAX CHECK LINE AND DISK SPECIFICATION 


. Exit to $CAERK (to load #ERRPG, the error program) if MOUNT is 
not ‘followed by a blank. 

. Call SALPHA to check for a syntactically correct volume-ID. 

. Exit to $CAERK if the volume-iD is invalid. 

lf next character is EOS or R1, set the indicator for R1. 

. If R2is specified, set the indicator for R2. 

. If neither EOS, R1, or R2 is found following the volume-ID, exit to 
$CAERK, 

. Exit to $CAERK if R2 is specified and drive 2 is not present on the 
system. 


N ogson 


KMO200 


CHECK VOLUME-ID’S AND WORK AREA INDICATORS 


1. If the volume-ID entry ($VOLID in the nucleus) for the specified disk 
is non-zero, exit to $CAERK. 

Branch to MINITL to read the volume label! sector of the specified 
program. 

Exit to $CAERK if the volume-ID in the volume label is not identical 
to the one specified in the command, 

If R1 is the specified disk, set the nucleus indicator for no work area on 
R1, according to the indicator for R1 work area found in the volume 
label. 

5. If R1 is specified, branch to SUTOBA to check the system mode, 


PF oO N 


KMO375 
SET NUCLEUS INDICATORS AND EXIT 


1. Mask against interrupts. 

2. Move the volume-!D to the $VOLID table in the nucleus communica- 
tions area. 

3. Move the cylinder byte of the disk address of the file library to the 
$VOLID table. 

4. lf R1 was specified, and SUTOBA found an error condition, exit to 
$CAERK. 

5. Set off the indicator which allows MOUNT or INITIALIZE commands 


only. (SMOUNT in $INDR3 in the nucleus.) 


#GUFUD 
Figure 3-22 
Via $CARPL 
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Figure 3-52. MOUNT Keyword Program (#KMOUN) Flowchart 
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PASSWORD Keyword Program—#KPASW (Figure 3-53) 


e #KPASW changes the current password and the password directory to the password 
specified by the PASSWORD command. 


e The assembly of #KPASW contains these major source modules: 


KPASWD—Mainline logic, Figure 3-53 
DL2ICS—Disk logical IOCS, Figure 3-70 
SGETDB-Search password directory, Figure 3-77 


#KPASW searches the password directory, checking to see that the new password is not 
a duplicate, before updating and writing back the directory. The specified password 
replaces the current password entry in the password directory. 


#KPASW 


KPA010 


SYNTAX CHECK INPUT COMMAND 


. Call DL2ICS to read password directory. 

. Call SALPHA8 to decode new password. 

. Call SGETDB to find current password. 

. Call SGETDB to find new password. 

. Exit to $CAERK to load error program if errors. 


ahWwnNn= 


Duplicate 
Password 


#ERRPG 
Figure 3-17 
Via $CAERK 


KPA140 


CHANGE CURRENT PASSWORD 


. Set new password in place of old in password 
directory. 

. Change current password in nucleus. 

. Call DL2ICS to write password directory back 
to disk. 

. Exit to $CARPL to lead #GUFUD, 


= 


- WN 


#GUFUD 
Figure 3-22 
Via $CARPL 
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Figure 3-53. PASSWORD Key word Program (#KPASW) Flowchart 
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PROTECT Keyword Program—#KPRTC (Figure 3-54) 


e #KPRTC sets or cancels file protection on user library files or pooled files. 
e@ One-star and two-star data files cannot be protected. 
e@ The assembly of #KPRTC contains these major source modules: 


KPRTCT—Mainline logic, Figure 3-54 
DL2ICS—Disk logical IOCS, Figure 3-70 
SRCHFN-—Search user directory, Figure 3-78 
SVOLID—Search volume-ID table, Figure 3-76 
SGETDB-Search password directory, Figure 3-77 
SFINDF—Find library file, Figure 3-55 


#KPRTC sets the protect status bit in the user, pooled, or two-star filename directory. 
The selection of the status is determined by the user with the ON or OFF parameter, 
with ON being the default condition. 

If a pooled filename is specified, a current user must be logged on and the filename 
must be in his user directory to qualify him as the creating user. If the name is in his 
directory, the protection of the entry .in the pooled directory is changed (protected or 
unprotected), 

When a file specification is entered, #KPRTC searches the password directory, and 
then the user directory, for the filename. The status bit is set if a match is made. When 
a two-star filename is specified, the protect status can only be set ON. 


#KPRTC 
KPRTCT 


SYNTAX CHECK AND FIND SPECIFIED FILE 


1. Call SUFFER to decode input tine buffer. 
2. Call SFINDF to find specified file. 
3. Exit to $CAERK if errors. 


#ERRPG 
Figure 3-17 
Via $CAERK 


KPR180 


SET SPECIFIED PROTECT STATUS 


. If ** file, PROTECT OFF invalid. 
If * or ** data file, go to $CAERK for error 
program. 

If *file, insure current user was creator. 

Set specified status. 


BY oN 


KPR220 


OUTPUT USER DIRECTORY 


Call DL2ICS to write directory to disk. 
Exit to $CARPL to reload #GUFUD. 


1 
2. 


#GUFUD 
Figure 3-22 
Via $CARPL 
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Figure 3-54. PROTECT Keyword Program (#KPRTC) Flowchart 
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PULL/POOL Keyword Program—#KPOOL (Figure 3-55) 


e #KPOOL adds or removes a specified filename to or from the one-star library 
directory. 


e@ The assembly of #KPOOL contains these major source modules: 


KPOOLN—Mainline logic, Figure 3-55 
SRCHEFN-Search user directory, Figure 3-78 
SVOLID-Search volume-ID table, Figure 3-76 
SGETDB--Search password directory, Figure 3-77 
SFINDF—Find library file, Figure 3-75 
DL2ICS—Disk logical IOCS, Figure 3-70 
STORIN—Null directory insert, no flowchart 
STUFID—User directory insert, no flowchart 
SURCHN-Search null directory, Figure 3-81 


#KPOOL loads #SPACK, Figure 3-86, to pack the file library if the null directory is full. 
#SPACK loads, and returns to, #KPOOL, 

If the POOL keyword command is issued, KPOOLN inserts the specified user file into 
the one-star on the disk containing the user library, thus making it available to all of the 
system (i.e., an entry for the file is created in the one-star library and an indicator is set 
in the user library, allowing the “pooled” use of the file). 

If the PULL keyword command is issued, KPOOLN removes the specified user file 
from the one-star library on the disk containing the user library (i.e., the one-star library 
entry for the file is deleted and the “pooled” indicator for the file is set off). 
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#KPOOL 


KPO150 


SYNTAX CHECK LINE AND 
SEARCH FOR FILE 


. Call SUFFER to syntax check 
the file-specification. 

2. Exit to #ERRPG via $CAERK 
for error or for a * or ** 
Password. 

3. Call SFINDF to search for the 
file in the user directory. 

4. Exit to HERRPG via $CAERK 
if the file is not found by 
SFINDF. 

5. Exit to HERRPG via $CAERK 
if the file is pooled on a 
pool command, 

6. Exit to #ERRPG via $CAERK 

if the file is not pooled on a 

pull command. 


KPO280 


. Save the user directory disk 
block that contained the 
filename. 

2. Call SFINDF to search the 
pool directory. 


Pull 


Command 


Pool 


CREATE POOL DIRECTORY 
ENTRY 


. Set up the entry for pool 
directory. 

. Store entry in directory via 

- STUFID. 

. Set pooled indicator in user 
directory block. 

. Restore user directory block 
to disk via DL2ICS. © 


Current 
Block 
Linked 


Prime SFINDF to search for last 
entry by supplying an invalid 
filename. 


KPO470 


MODIFY BLOCK 


1. Move last entry over pulled 


entry. 
2. Decrement count of entries. 


KPO700 
No 
Yes 


KPO800 KPO650 


STORE NULL BLOCK PROCESS PULL 
1. Zero forward link in other 1. Move last entry over pulled 
block. one. 


2. Store null block via STORIN. 2. Write back pool directory 
: — : disk block (DL2!CS). 


BR1098.1 


Figure 3-55. PULL/POOL Keyword Program (#KPOOL) Flowchart (Part 1 of 2) 
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Should 
Library 
Be Packed 


KPO900 


LOAD #SPACK SUBROUTINE 


1. Prime return from #SPACK., 
2. Load #SPACK via $RLOAD. 
3. Pack the file library. 


RESTORE DIRECTORY 
BLOCKS 


1. Restore null directory. 
2. Restore user directory disk 
block with zero link. 


KPO690 
PROCESS USER 


1. Set pool indicator off. 
2. Restore user directory disk 
block (DL2ICS). 


#GUFUD 
Figure 3-22 
Via $CARPL 


BR1098.2 


Figure 3-55, PULL/POOL Keyword Program (#KPOOL) Flowchart (Part 2 of 2) 
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READ Keyword Program—#KREAD (Figure 3-56) 
e #KREAD changes the system input device to keyboard or card reader. 


e The assembly of #KREAD contains this major source module: 


KREADN-—Mainline logic, Figure 3-56 


#KREAD sets input mode indicators in the nucleus communications area (refer to 
Figure 5-1) corresponding to parameters of the READ statement. #KREAD exits 
to the system nucleus which loads #GUFUD (Figure 3-22) to load the proper I/O 


routines. 
#KREAD 


SYNTAX CHECK LINE AND SET INTERNAL INDICATORS 


1. Exit to $CAERK to load the error program (#ERRPG) if an invalid 
delimiter or no parameter is specified. 

2. \f ‘KEY’ is found, followed by EOS, set $CALLI off and exit 
to $CAIPL to load the I/O routines and 4GUFUD. 

3. Check for parameters ‘CARD’, ‘LIST’, ‘NOLIST’, ‘NUM’, and 
‘NONUM' and set internal indicators when one is found, 

4, Exit to $CAERK if a parameter is found that is not the same as one 
specified above. (EOS is OK.) ; 

5. Exit to $CAERK if conflicting parameters or duplicate parameters 

6 

7 


#GUFUD 
Figure 3-22 
Via $CAIPL 


are found. 
. Upon finding EOS, exit to $CAERK if ‘CARD’ was not a specified 
parameter. 
. Exit to $CAERK if there is not a data recorder on the system. 


KRE240 


SET NUCLEUS INDICATORS IN $KEYCD 


Set on card input indicator ($CARDI) and set $CALLI off. 

if ‘NOLIST’ was specified, set on nolist indicator; else, set it off 
($NOLST). 

If ‘NUM! was specified, set on number indicator; else, set it off 
($DTNMB). 

Exit to $CARPL to load #GUFUD.’ 


#GUFUD 
Figure 3-22 
Via $CARPL 


Figure 3-56, READ Keyword Program (4KREAD) Flowchart 


PF O NS 


RELABEL Keyword Program—#KRLAB (Figure 3-57) 


e@ #KRLAB changes variable names in the system work area program according to user 
specified parameters. : 


e The assembly of #KRLAB contains these major source modules: 


KRLABL—Mainline logic, Figure 3-57 

GRABIT—Work file input, Figure 3-74 

GPUTIT—Work file output, Figure 3-73 

DL4ICS—System work file IOCS, Figure 3-70 

SVARAB~—Variable scan, no flowchart. 
#KRLAB evaluates and determines the validity of the parameters, which must be pairs 
of the same class of labels. If an error occurs, the program is terminated prior to any file 
alterations. Every statement is scanned for the first entry of a parameter pair. If a match 
is found, the second entry of that parameter pair is substituted in its place. The file line 
length is altered only when a different length label is substituted. The command is 
rejected if a data file is in the work file. #K RVLA is the second phase of the RELABEL 
keyword program. . 
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#KRLAB 


#KRLAB 


SYNTAX CHECK INPUT LINE 


1. Exit to $CAERK to load the error program if a 
dash was found immediately following the 
RELABEL keyword. 

2. Exit to $CAERK if there is no parameter follow- 
ing the keyword. 

3. Go to KRL100 to create the label table. 


KRLO80 ] 


KRL100 


CREATE LABEL TABLE 


1. If @XR is referencing a ‘@’, ‘$', 
‘#’ or alphabetic character 
‘A’—'2', move symbol to label 
table; else, exit to $CAERK. 

2. If @XR+1 is referencing a digit, 
move digit to label table; 

If @XR+1 is referencing a 
‘$(*}', set type code for 
character array in label table; 
{f @XR+1 is referencing a ‘(*)’, 
set type code for arithmetic 
array; else set type code for 
simple arithmetic variable. 

3. Exit to $CAERK if the label 
was not followed by a valid 
delimiter. 

4. Exit to $CAERK if EOS 
follows the first label in a pair. 

5. Exit to $CAERK if a label 
Pair is found and the type 
codes of the two labels are 
incompatible. 

6. Repeat this block until an 
EOS is encountered. 


7. When EOS is found following 
a valid list of labels, set an 
end-of-label-table indicator. 
KRL250 


SEARCH FILE INDEX TABLE 


1. Add expansion factor to core 
size for reading and writing 
maximum number of sectors 
of work file from the work 
area to virtual memory. 

2. Search all of file index table to 
find the maximum size of the 
work file. 

. Go to KRLO80 to write the 

file to virtual memory. 


SAVE WORKFILE IN VIRTUAL MEMORY 


. Call DL4ICS to read the file from the work area to 

core (using maximum available core). 

Call DL4ICS to write the file from core to virtual 

memory. 

Update disk parameter lists for reading from and 

writing to disk. 

Decrement file size by core size. 

. Branch to KRLO8O if there is more file to transfer. 
When all of file is transferred, call $RLOAD to 

load the overlay program, #KRVLA, , 


OAs wo nV 


#KRVLA 


#KRVLA 


SEARCH FILE LINE FOR A LABEL 


= 


. Prime GRABIT buffers with the first two sectors 

of virtual memory, 

Set initial indicator and initial disk address (first 

virtual memory sector) for GRABIT. 

Call GRABIT for the initialization process. 

Mask against interrupts. 

Set GRABIT indicator to return text. 

Call GRABIT to get a fine of the file. 

Exit to KRV600 if this is the EOF line, == 

. Call SVARAB to find a label in the file line. 

If SVARAB returns referencing an EOS, call 

GPUTIT to write the file line back to disk; then, 

branch to KRV380 to get the next tine of file. 

When SVARAB returns pointing to a label, 

search the label table for a match. 

. If amiatch is found, substitute the new label for 
the old label and shift the line to the right one 
byte if a letter-digit variable is replacing a simple 
letter variable. (Set switch if a line is truncated.) 

. If amatch is not found, or if a switch of labels 

has been made, branch to KRV390. 


KRV380 


WONATAW N 


x 
9 


— 
— 


KRV390 


KRL600 


END OF FILE IS ENCOUNTERED 


1. Branch to GPUTIT to put the fast line back to disk, 
2. Exit to $CAERK if at least one line was truncated, 
or if the file was truncated; or both, 


GPUTIT Error Return 


GPUERR 


#GUFUD 
Figure 3-22 
Via $CARPL 


Was 
a Line 
Truncated 


Set error message 
stack, 


#ERRPG 
Figure 3-17 
Via $CAERK 


Figure 3-57, RELABEL Keyword Program (#KRLAB) Flowchart 
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REMOVE Keyword Program—#KRMOV (Figure 3-59) 
e #KRMOV notifies the system that a volume is being removed from R1 or R2. 


e The assembly of #KRMOV contains these major source modules: 


KRMOVE-—Mainline logic, Figure 3-59 
SUPDAT-Statistical error recording, no flowchart 
SUTOBA-—Switch system mode, no flowchart 


#KRMOV reads the volume label to verify that the volume-ID matches the user specified 
volume-ID in the nucleus communications area (refer to Figure 5-1). If the drive is R1, 
an indicator is reset for no system work area available. The volume-ID table entry for 

R1 or R2 is reset to binary 0’s (refer to Figure 5-10). 

The volume must be ready until #KRMOV is terminated because the individual volume 
error statistics must be updated. If R1 is removed and it contains the current system 
program file, a hard halt is generated after the appropriate message is printed. An error 
also occurs and a warning error message is printed if the user is logged onto the disk he 
is removing. 

#KRMOV is loaded by #ECMAN (Figure 3-24) at OCO0 (see the core map, Figure 
3-58), 


0100 


System Nucleus 


0600 
Input Line Buffer 


1/0 Routines 


Ocoo 
#KRMOV 


One Sector Disk Buffer 
for Volume-|D Sector 


1000 


BR1101 


Figure 3-58, #KRMOV Core Map 
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#KRMOV 


SYNTAX CHECK LINE AND SET INDICATORS FOR PARAMETERS 


. Exit to $CAERK (to load #ERRPG, the error program) if REMOVE 
was immediately followed by a dash. 

Scan across blanks, 

lf EOS or ‘R17’ is found, set R1 indicator on. 

If ‘R2' is found, set R2 indicator on. 

Exit to $CAERK if neither Ri, R2, or EOS is found. 

Increment past ‘R1’ or ‘R2' and exit to $CAERK if optional blank(s)’ 
and EOS are not found. 


= 


PAkON 


KRM400 


PROCESS REMOVE 


. Read volume label of specified disk (via $DISKN). 

Exit to $CAERK if the volume-ID on the disk (as found in the 

volume label) does not match the appropriate $VOLID nucleus entry. 

Branch to SUPDAT to update the error counters. 

Mask against interrupts. 

Clear the cylinder byte of the file library disk address to zero. 

Clear the $VOLID volume ID to zeros. 

Set the nucleus indicator to allow only the mount or initial commands 

(SMOUNT in $INDR3), 

If R1 is being removed, set the ‘no work area on R11’ indicator on (in 

nucleus, $NWRKR in $INDR3). 

. Hf R1 is being removed, SUTOBA is called to check the condition of 
the System Work Areas. If SUTOBA detects that work areas were 
present on R1 and F1 before the REMOVE command, the $CMODE 
indicator (BASIC mode indicator) is set on to force an error condition, 
if a disk without a work area is mounted on R1. 

10. lf R1 is being removed and it contains the current system program 

file, print appropriate message and come to a hard halt. 

11. 1f the user is not logged-on, exit to #GUFUD via $CAIPL to return to 

keyboard mode. , . 

12. tf the specified disk does not contain the current file library, exit to 

#GUFUD via $CAIPL. 

13. Clear the current password and disk specification in nucleus to zeros. 
(S$FILIB-1, $USRDR, and $PASWD). 

. Set warning error message code in $CAERR and exit to $CAERK. 


© © NOOSH No 


#GUFUD 
Figure 3-22 
Via $CAIPL 


#ERRPG 
Figure 3-17 
Via $CAERK 


BR1102 


Figure 3-59, REMOVE Keyword Program (#KRMOV) Flowchart 
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RENAME Keyword Program—#KNAME (Figure 3-60) 


e #KNAME assigns a new filename to the work file or to a file in the file library 
(pooled and/or user file). 


e The assembly of #KNAME contains these major source modules: 


KNAMES—Mainline logic, Figure 3-60 
DL2ICS—Disk logical IOCS, Figure 3-70 
SFINDF—Find library file, Figure 3-75 
SGETDB-—Search password directory, Figure 3-77 
SRCHFN—Search user directory, Figure 3-78 
SVOLID-—Search volume-ID table, Figure 3-76 


_#KNAME assigns the user filename to the file specified by the user file specification. 
The user directory and the pooled directory are searched to ensure that the new file- 
name is not a duplicate. 
If the name is valid, the entry in the directory is changed by writing back that sector 
of the directory. 
If the user file specification is not present, the user filename is assigned to the currently 
active file in the system work file. 
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#KNAME 


RENAME THE WORK FILE 


Change the name of the active file in the work file. 
The name is tocated at label $WFNME, 


SYNTAX CHECK THE FILE-SPECIFICATION 


1. Call SUFFER to syntax check the file-specification. 
2. Exit to HERRPG via $CAERK if errors are detected. 


#GUFUD 
Figure 3-22 
Via $CARPL 


KNA220 


SMPSWD 
= Blank 


SEARCH POOL DIRECTORY FOR OLD FILENAME 


1. Save the new filename. 
. Call SFINDF to search the * directory for the 


SYNTAX CHECK BOTH FILENAMES 


old filename. 
. Exit to ERRPG via $CAERK if the old name is 
not found. 


1, Call SALPH8 to syntax check the filenames. 
2, Save the new and old filenames. 

3. Syntax check the remainder of the command line. 
4. Exit to HERRPG via $CAERK if errors are detected. 


KNA400 


SEARCH POOL DIRECTORY FOR DUPLICATE OF 
NEW FILENAME 


KNA280 


SEARCH USER DIRECTORY TO LOCATE OLD 


FILENAME 
1. Save the old filename. 


. Call SFINDF to search the * directory for a dupli- 
cate of the new filename. 

. Exit to #ERRPG via $CAERK if a duplicate is 
found. 


. Call SFINDF to search the user directory for the 
old filename. 

. Exit to #ERRPG via $CAERK if the file or pass- 
word is not found. 

. Set an indicator to cause as search of the * 
directory if the file ts pooled. 


KNA300 
MODIFY POOL DIRECTORY 


SEARCH USER DIRECTORY FOR DUPLICATE 
OF NEW FILENAME 


1. Change the entry previously located in the * 
directory to the new filename. 
2. Call DL2ICS to write back the * directory disk 


. Save the old filename. 
block. 


. Cail SFINDF to search the user directory for a 
duplicate of the new filename. 

. Exit to #ERRPG via $CAERK if a duplicate is 
found. 


KNAS00 
MODIFY USER DIRECTORY 


1. Change the entry previously located in the user 
No directory to the new filename. 
2. Call DL2ICS to write back the user directory disk 
block. : 


KNA350 


Is the 
File 
Pooled 


#GUFUD 
Figure 3-22 
Via $CARPL 


BR1103 
Figure 3-60. RENAME Keyword Program (#KNAME) Flowchart 
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RENUMBER Keyword Program—#K RNUM (Figure 3-61) 


e #KRNUM renumbers the statements of the active file in the system work area. 
e The assembly of #KRNUM contains these major source modules: 


KRNUMB-Mainline logic, Figure 3-61 
KROVLY—Mainline logic, Figure 3-61 
GRABIT—Work file input, Figure 3-74 
GPUTIT—Work file output, Figure 3-73 
DL4ICS—System work file IOCS, Figure 3-70 


#KOVME is an entry point used only by #KMERG (MERGE keyword program, Figure 
3-51). This entry assumes that the file has been written in virtual memory and a line 
number table is in core. 

The first line of the current file to be renumbered is specified by the second parameter. 
The line number assigned to it is the first parameter. All succeeding lines of the work 
area file are renumbered, using the third parameter as an increment. 

If the file in the work file is a program, all line number references in the program are 
changed to reflect the new numbering, with each line number occupying four positions. 
(Imbedded blanks in a line number are removed.) 

Parameters can be omitted only in descending order, Default values for the three 
parameters are 100, 0, and 10. 
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#KRNUM 


KRNO5O 
COLLECT PARAMETERS 


1. Call C4BIN2 to convert parameters to binary. 
2. Replace default parameters with those specified. 


Yes 


#ERRPG 
Figure 3-17 
Via $CAERK 


KRN120 


TRANSFER WORK AREA TO VIRTUAL MEMORY 


. Increment buffer size by expansion factor. 
. Search FIT to determine file size. 
. Use DL4ICS to transfer work area file to virtual 


memory. 
. Call $RLOAD to load overlay #KROVL. 


#KROVL 


#KROVL 


BUILD LINE NUMBER TABLE 


1. Use $DISKN to prime GRABIT buffers. 


#KOVME 2. Call GRABIT to return file lines, 


3. Put line numbers in table. 


#KOVME 


RENUMBER FILE TO WORK AREA 


Use $DISKN to prime GRABIT buffers. 
. Mask against interrupts. 
. Call GRABIT to return file lines. 
. Change line number references where applicable. 
. Change line number if applicable. 
. Call GPUTIT to write file line to work area file 
and build FIT. 


#GUFUDI 
Figure 3-22 
Via $CARPL 


BR1104 


Figure 3-61. RENUMBER Keyword Program (#KRNUM) Flowchart 
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RESUME Keyword Program—#K RSUM (Figure 3-62) 


e #KRSUM returns the suspended program to the execution pause state. 


e Running of the returned suspended program is aborted if an “open” file is gone or 
was modified. 


e The suspended program is aborted without running, if the configuration was altered, 
to allow the user to reconfigure. 


e The assembly of #KRSUM contains these major source modules: 


KRSUME—Mainline logic, Figure 3-62 
SVOLID—Search volume-ID table, Figure 3-76 
SFINDF-—Find library file, Figure 3-75 
SGETDB-Search password directory, Figure 3-77 
SRCHFN-Search user directory, Figure 3-78 
DL2ICS—Disk logical IOCS, Figure 3-70 
DL4ICS—System work file IOCS, Figure 3-70 


The RESUME command restores the currently suspended program (if one exists), along 
with its associated status information, to the execution pause state so that execution can 
resume when the GO command is issued. : 

The program deletes the suspended program file and sets an indicator for the system, 
enabling a user to suspend another program; and prints the name of the program that is 
restored to the pause state. 

The existence of any of the following conditions results in an error condition when the 
RESUME command is issued: 


An operand of any sort with the keyword (a syntax error). 

Nonexistence of a program in a suspended state. 

Nonexistence of a file that the program expects (i.e., was deleted). 

Open indicator in a file is not set on when KSSUME goes out to shut it off. 
Modified configuration. 


wRYNS 


Note: In conditions 3 and 4, the suspended program is lost without restoration to a 
pause state. All conditions result in an error and an error code is set in };CAERR, 
followed. by a branch to $CAERK. 


Input to RESUME is the suspended program and its associated status information. Out- 
put is the restoration of the program to the execution pause condition. 
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#KRSUM 


KRS100 


SYNTAX & READ STATUS 


, Syntax command line. 
Read fixed sector via $DISKN, 
Exit to $CAERK if: 

a) Invalid syntax 

b) No suspended program. 


QN> 


KRS200 


CHECK CONFIGURATION 


Exit to $CAERK if: 

$EXFTR not same 

$DKSIZ not same 

$CONFG not same 

$KEYBD not same 

$CRTAV, $LNPTR, and $DTRDR in $10IND are 
not same. 


READ VM PAGES 0,1 


. Read file directory 1 and file directory 2 from 

virtual memory via $DISKN. 

2. Search for open disk files via SFINDF. 

3. Set off ‘OPEN’ indicator, 

4. Convert disk addresses to physical disk addresses 
and modify D2. 

5. Re-write directory block (DL2ICS). 

6. Destroy suspend status and exit to $CAERK if: 
a) Disk file not ‘OPEN’, 

b) Disk file not found. 


SPOS 


KRS600 


RESUME PROGRAM 


. Restore $PAUSD registers: 
a) $SRTRN 
b) $PSDBR 
c) $PSDXR 
Restore $INLNO. 
Restore $XIND1 and $XIND2. 


KRSOOO 


RESUME CORE 


1. Read ##CSAV via DL2ICS. 
2. Write ##CORE via DL2ICS. 


KRSO10 


All 
Transferred 


KRSO20 


RESUME VM ~ 


1. Read ##SAV via DL2ICS. 
2. Write #@#VFP(VM) via DL4ICS. 


KRSO60 


All 
Transferred 


KRSO9O 


GUFUDI 
Figure 3-22 
Via $CARPL 
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Figure 3-62. RESUME Keyword Program (#KRSUM) Flowchart 
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RUN/STEP/TRACE Keyword Program—#K RUNI (Figure 3-63) 
e #KRUNI provides linkage to the compiler. 


e The assembly of #KRUNI contains this major source module: 


KRUNIT—Mainline logic, Figure 3-63 


To compile the BASIC program active in the system work file, the compiler (#BCOMP) 
is loaded directly. To compile a BASIC program from the file library, #KEDIT (Figure 
3-40) is loaded to edit the file into the system work file and then load the compiler.. 

For TRACE, if a list of BASIC identifiers is present, the list is written to virtual 
memory for use by the compiler. 


#KRUNI 


KRUNIT 


SYNTAX CHECK TO DETERMINE TYPE OF EXECUTION 


. Set on run indicator in nucleus if RUN execution. 
. Set on step indicator in nucleus if STEP execution. 
. Set on trace indicator in nucleus if TRACE execution. 


. Set on short or long indicators in nucleus if specified. 
. Exit to $CAERK on syntax errors. 


No 


File 
Specifications 


Basic 
Identifiers ia 
PRIME AND LOAD ‘#KEDIT 
. Set on indicators in nucleus. 
KRU290 execute #KEDIT. 
SYNTAX CHECK LIST OF BASIC IDENTIFIERS : 
#KEDIT 
1. Set on all indicator in nucleus, if ALL parameter, or no parameters. Figure 3-40 
2. Set on flow indicator in nucleus if FLOW parameter. Via $RLOAD 
3. Syntax check variable list and exit to $CAERK to print error message 
if syntax error. 
4. Enter $DISKN to write list to virtual memory. 


KRU145 
CHECK WORK FILE STATUS AND LOAD COMPILER 


1. Exit to $CAERK to print error message upon: 
a) No work file defined, ; 
b) Work file empty, 
c) Data or procedure file in work file. 
2. Exit to $RLOAD to load and execute compiler. 


Y 1 
o 2. Exit to $RLOAD to load and 


#ERRPG 
Figure 3-17 
Via $CAERK 


#BCOMP 
Figure 3-119 
Via S$RLOAD 


Figure 3-63. RUN/STEP/TRACE Keyword Program (#KRUNI) Flowchart 
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SAVE Keyword Program—#KSAVE (Figure 3-64) 


e #KSAVE stores the active file from the system work file to the file library (system 
library file). 


e The assemblies of #KSAVE and #KSVLA contain these major source modules: 


KSAVEN—Mainline logic, Figure 3-64 
DL2ICS—Disk logical IOCS, Figure 3-70 
DL4ICS—System work file IOCS, Figure 3-70 
STORIN—Null directory insert, Figure 3-79 
STUFID—User directory insert, Figure 3-80 
SRCHFN-—Search user directory, Figure 3-78 
SFINDF-—Find library file, Figure 3-75 
SGETDB-—Search password directory, Figure 3-77 
SVOLID—Search volume-ID table, Figure 3-76 
SURCHN-Search null directory, Figure 3-81 


The new file is stored on the same volume as the old file when the filenames match. The 
new file does not necessarily occupy the same physical disk space. The old file physical 
disk space may be placed in the null directory. A file is not replaced if it is pooled or 
protected. 

#KSAVE loads #SPACK (Figure 3-86) when disk space can be obtained oy packing 


the file library. #SPACK loads, and returns to, #KSAVE. 
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#KSAVE 


KSAVEN 


SYNTAX CHECK AND FIND SPECIFIED FILE 


Mask interrupts and set pointer for input buffer. 
Save disk block count from FIT. 

Call SUFFER to decode file-specification. 

. Call SCSTG to decode character constant header. 
Call SFINDF to locate current password and file. 
Cail $RLOAD to load #KSVLA. 

Exit to $CAERK if any errors. 


NOOBWN> 


Password 
Found 


#ERRPG 
Figure 3-17 
Via $CAERK 


KSA007 


CHECK FILE STATUS AND TEST IF** FILE 


1. If file name was found and file is Pooled or pro- 
tected, take the error exit. 

[f2=% file, call SFINDF to find first available space in 
the disk searching order. 

lf space not available, call SPACKU to pack the li- 
brary area. 

If space found for ** file, return it to null directory. 
. Call DL4ICS to read in FIT. 


ak w oN 


KSA030 


CALCULATE FILE LENGTH AND BUILD 
READ TABLE 


1. If program generated data file disk block count is file 
size, calculate FIT size and add to disk block count. 

2. \If BASIC file, add the length of the I/O record. 

3. Build read table of displacements and number of 

contiguous sectors. 


KSA140 


SELECT SPACE TO USE 


1. Call SURCHN to look for space to use. 

2. \f space not found, go to $CAERK, if total null 
space not enough. 

3. If total null space required, call #SPACK to pack 
library area, 

4. If file name and new space found, find closest to 
start of library. 

5, 1f new space closer, use it and call STORIN to send 
old space to null directory. 

6. If null directory full, call #SPACK to pack library. 

7. If old space is closer, but new file is larger, use new 
space. 

8. If old space closer, and new file is smaller, call 


STORIN to return new space and remainder of old 
space to null directory, 


KSA210 


UPDATE USER DIRECTORY AND START I/O 


1, Update old entry or build new entry for user direc- 
tory. 

. Call STUFID to make entry and output the direc- 
tory. 

. Set up DPL to output FIT and 1/O sector, if file is 
not a program generated data file. 

. Set FIT entry displacements in physical/logical order. 

. Call DL2ICS to output FIT and I/O sectors. 


ah WwW N 


KSA229 


COPY FILE FROM WORK AREA TO LIBRARY 


1. Pick up entries from read table and call DL4ICS to 
fill the buffer. 

. Call DL2iCS to write the buffer to the library area. 

. On fast entry, call DL2ICS to empty the buffer. 

. Go to $CARPL to reload #GUFUD. 


BWN 


#GUFUD 
Figure 3-22 
' Via $CARPL 


BR1107A 


Figure 3-64, SAVE Keyword Program (#KSAVE) Flowchart 
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SET Keyword Program—#KSETI, #KSOVR (Figure 3-65) 

e #KSETI syntax checks the SET command line, assuring valid syntax for the SET 
overlay #KSOVR. 

e The assembly of #KSETI contains this major module: 
KSETIT—Mainline logic, Figure 3-65 


e #KSOVR assigns a value to an existing program variable during a program execution 
pause state. 


e The assembly of #KSOVR contains this major module: 
KSOVRL—Mainline logic, Figure 3-65 


The SET command line is syntax checked. When correct syntax is assured, initializing 
operations are performed to load the overlay #KSOVR. 

The specified variable or array element symbol is converted to a virtual address. The 
specified constant is converted to a form suitable for storage in virtual memory and then 
moved to the virtual memory address associated with the symbol. 


#KSETI 


KSETIT 


SYNTAX CHECKING: 


. Set program for long precision if required. 

. Syntax check input line; exit to $CAERK on 
errors to load HERRPG. 

. Get symbol and array tables. 

. Set parameter list for paging module and core 


a PW N- 


pages. 
. Exit to $RLOAD to load #KSOVR (the set 
overlay). 


#KSOVR 
Via $RLOAD 


KSOVRL 


SET PHASE TWO, SET EXECUTION 


. Get paging module and core pages. 

. Set program for long precision if required. 
Determine virtual address of the variable. 
Convert input constant to internal form. 

. Enter IPGMDL to move constant to the 
virtual memory address of the variable. 

. Exit to $CARPL to load #GUFUD. 

. Exit to $CAERK on errors to load #ERRPG. 


NO dwn 


#GUFUD 
Figure 3-22 
Via $CARPL 


BR1108 


Figure 3-65. SET Keyword Program (#KSETI, #KSOVR) Flowchart 
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SUSPEND Keyword Program—#KSSPN (Figure 3-66) 


e When the SUSPEND command is issued, the current program in an execution pause 
condition is saved for future completion of execution. 


e The assembly of #KSSPN contains these major source modules: 


KSSPND—Mainline logic, Figure 3-66 
SVOLID—Search volumeID table, Figure 3-76 
SFINDF-—Find library file, Figure 3-75 
SGETDB-—Search password directory, Figure 3-77 
SRCHFN-Search user directory, Figure 3-78 
DL2ICS—Disk logical IOCS, Figure 3-70 
DL4ICS—System work file IOCS, Figure 3-70 


The SUSPEND command causes the program that is currently in an execution pause 
condition (if one exists) to be saved, along with its associated status information, for 
future completion of execution. This enables the user to execute other programs, or 
certain system functions, without affecting the suspended program. If the RESUME 
command is issued and a program is in the suspended state, the program is returned to 
an execution pause condition, If two SUSPEND commands are issued in succession, the 
first suspended program is replaced by the second suspended program if the optional file- 
name of the first program is specified in the second command, If any active data files are 
modified while the program is in the suspended state, the suspended program is aborted. 

The associated status information suspended with the program includes the 64k of 
virtual memory that is unique for this program, a six-sector symbol table, register data 
for return to the calling point, and other indicators. 

Any of the following conditions results in an error when the SUSPEND command is 
issued: 


1. An operand of any sort, other than the optional filename, with the keyword 

(a syntax error). 

Any program already in a suspended state, if the optional filename is not specified. 
The nonexistence of a program in an execution pause state, 

An active disk scratch file for the program. 

The nonexistence of a file associated with the program for suspension. 


wARYN 


Note: This error causes a hard halt after a message is displayed. 


Each of the preceding conditions results in an error; and an error code is set in 
$CAERR, followed by a branch to the error exit routine at SCAERK. 

Input information to SUSPEND is (1) the program in an execution pause state and 
(2) its associated status information, Output is the transfer of this program and informa- 
tion to the suspend save area. 
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#KSSPN 
KSS100 


SYNTAX & READ STATUS 


. Syntax command line. 
Read fixed status sector via $DISKN. 
. Exit to $CAERK if: 

a) Syntax error, 
b) Program already suspended. 


ON 


KSS200 


READ VM DIRECTORIES 


4. Read directories 1 and 2 from VM. 
2. Exit to. $CAERK if any ‘OPEN’ scratch files. 


KSS300 


SEARCH ALLOCATED FILES 


1. Search for allocated disk files via SFINDF. 
2. Exit to $CAERK if not,found (hard halt). 
3. Set on open indicator. 


KSS400 


SET UP SUSPEND SECTOR 


. Save suspended program name. 

Save $PAUSD registers. 

. Save $INLNO, $EXFTR, $XIND1, $XIND2, 
$DKSIZ, $CONFG, $KEYBD, $CRTAV, $DTRDR, 


$LNPTR. 


ona 


KSS500 


PREPARE CORE & VM TRANSFER 


. Compute disk addresses of suspended core 
and VM. 
2. Get count of core sectors saved 
($CSDPL.+ @ DCNT). 
. Generate buffer size dynamically. 


KSSO00 


SUSPEND CORE 
1. Read ## CORE via DL2ICS. 
2. Write ##CSAV via DL2ICS (suspend), 


KSSO10 


All 
Core 
Transfer 


KSS020 


SUSPEND.VM 


1. Read #@#VFP via DL4ICS. 
2. Write VM to ##SSAV (suspend). 
3. Update displacements. 


KSSO60 


All 
VM 
Transferred 


KSSO90 


GUFUDI 
Figure 3-22 
Via $CARPL 


BR1109 


Figure 3-66. SUSPEND Keyword Program (#KSSPN) Flowchart 
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SYMBOLS Keyword Program—#KSYMB (Figure 3-67) 


e #KSYMB displays all variable names used in the system work area program. 
e The assembly of #KSYMB contains these major source modules: 


KSYMBL—Mainline logic, Figure 3-67 
GRABIT—Work file input, Figure 3-74 
DL4ICS—System work file IOCS, Figure 3-70 
DLPRNT-—IOCS for output, Figure 3-71 
SVARAB- Variable scan, no flowchart. 


#KSYMB scans the lines of the program in the system work area to locate the variable 
names used. 

A symbol table is built, using one byte for each possible variable name. If a variable is 
referenced in a disabled line, an indicator for this is set in the appropriate symbol table 
byte also. When all variables have been scanned, this symbol table is printed with each 
symbol occupying a seven-character field of which the last character is always blank. If 
the variable was in a disabled line, * is printed in the first character position of the out- 
put field. Nine variables are printed on one line, giving a print line 63 characters long. 
Output can be specified to go to the matrix printer or CRT; otherwise, the system printer 
is assumed to be the output device. 
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#KSYMB ot 


#KSYMB 


SYNTAX-CHECK LINE AND PERFORM INITIALIZATION 


Clear 406-byte symbol table to zeros. 

Exit to $CAERK to load the error program (#ERRPG) if a dash follows 
the SYMBOLS keyword. 

Branch to SCKOUT to check the specified output device, if one is 
specified. 

Exit to $CAERK if SCKOUT found a syntax error. 


Exit to $CAERK if an EOS is not found after the output device 
specification. 

Branch to SCKOUT at SCKDEV to check for the presence of the 
specified output device and to ready the device for use. 

Prime GRABIT buffers with the first two sectors of the work file. 
Set GRABIT code to return text. 


Om OO ONE os ON 


KSY150 


SEARCH THE FILE FOR SYMBOLS 


. Call GRABIT to retrieve one file line. 

. Branch to KSY800 if this is the EOF tine. 

. Call SVARAB to find a symbol in the line. 

. Go to KSY150 if SVARAB returns with an EOS. 

. Set indicator on in symbol! table for the symbol that was recognized. 
. Repeat loop to find more symbols. 


KSY800 


PRINT SYMBOLS REFERENCED 


. Search symbol table for symbols whose indicators 
are set, indicating a reference was made to them. 

. Move EBCDIC code for each symbol to a print 
buffer. 

. If the symbol was referenced in a disabled line, 
precede the symbol with an asterisk in the print 
buffer. 

. Branch to KSYPRN to print or save the line. 

. When all of symbol table has been searched, set 
switch in KSYPRN to force the print buffer to be 
printed, if it contains at least one symbol, and call 
KSYPRN. 

. Exit to $CAERK if the work file did not contain 
any symbols. 


#GUFUD 
Figure 3-22 KSYPRN 


Via $CARPL 
PRINT ROUTINE 


. Save return address. 

. If switch is set to force printing, go to DLPRNT. 

. lf output line buffer is not filled, return to point 
where called. 


. If output line is filled, branch to DLPRNT to 
print the line on the appropriate output device; 
clear the print buffer to blanks. 

. Return to point where called. 


BRi110 


Figure 3-467. SYMBOLS Keyword Program (#KSYMB) Flowchart 
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WIDTH Keyword Program—#KWIDT (Figure 3-68) 


e #KWIDT changes the margin values for the system printer in the nucleus communica- 
tions area (refer to Figure 5-1), 


e The assembly of #KWIDT contains this major source module: 


KWIDTH—Mainline logic, Figure 3-68. 


#KWIDT 


SYNTAX CHECK LINE AND ACCUMULATE PARAMETERS 


1. Initialize new left margin to old left margin, in case a new one is not 
specified. 

. If WIDTH. is immediately followed by a dash, exit to $CAERK to load 
#ERRPG, the error program. 

. Exit to $CAERK if the line contains no parameters. 

. Branch to C4BIN2 to convert the width parameter to binary. 

. Exit to $CAERK if the width was not an integer, if it contained more 
than four digits, and if it was not validly delimited (i.e., followed by a 
comma, blank(s), or EOS). 

6. If EOS does not follow (after optional blanks) the width parameter, 

branch to C4BIN2 to convert the left margin to binary. 

7. Exit to $CAERK if the left margin was not a number, if it contained 

more than four digits, or it was not followed (optional blanks) by EOS. 


OW N 


KWI500 
CHECK FOR VALID SPECIFICATION(S) 


. Ifa left margin value was specified, subtract ‘1’ from it; if negative num- 
ber results, exit to $CAERK. 
2. If specified width is less than ‘18’, exit to $CAERK. 
3. Compute the right margin by adding the left margin to the width. 
4 
5 


. Exit to $CAERK if the right margin exceeds the physical capacity of 
the printer (i.e., it is greater than 132 or 220). 

. |f the current print position is less than the new left margin, 
a) Calculate the difference between the current print position and the 

new left margin, in KWIHLD. 

b) Set the value of KWIHLD in the count of the print parameter list. 
c) Set the right margin in nucleus ($RMRGN) = 220, temporarily. 
d) Branch to $$PRNT to print blanks over the new left margin 

(i.e., move the print position over). 


KW1700 


STORE THE NEW MARGINS IN THE NUCLEUS 


1, Store the new left margin in the nucleus at $LMRGN. 
2. Move a carrier return to position the print head. ($$PRNT) 
3. Set the ‘I/O routines in core’ indicator off. 

4, Store the new right margin in the nucleus at $RMRGN. 


#GUFUD 
Figure 3-22 
Via $CARPL 


BR1111 


Figure 3-68. WIDTH Keyword Program (#KWIDT) Flowchart 
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WRITE Keyword Program—#KWRIT (Figure 3-69) 
e #KWRIT changes the device used as system printer to CRT, matrix printer, or both, 


e The assembly of #KWRIT contains this major source module: 


KWRITE-—Mainline logic, Figure 3-69 
#KWRIT stores these addresses at $PRDEV in the nucleus: 


DPRINT for matrix printer IOCR. 
DSPLYN for CRT IOCR. 
DSPYMP for matrix printer IOCR and CRT IOCR; this label is an entry point to the 


CRT IOCR. 
#KWRIT 
#KWRIT 
SYNTAX CHECK INPUT LINE 
Enter SCANIT to skip to parameters, 
Exit to #ERRPG via $CAERK on syntax error. 


CRT or Printer and CRT 


Printer 


Which 
Parameter 


KWR100 KWR200 


PROCESS PRINTER PROCESS CRT 


1. Exit to $CAERK if printer is unuseable due to 1. Exit to $CAERK if CRT not available on system. 
previous printer error. 2. Place the address $$PLYN plus the contents of 


2. Place the address $$PRNT at $PRDEV. $EXFTR at $PRDEV. 


Printer 
Also 


PROCESS PRINTER WITH CRT 


Exit to 7ERRPG via $CAERK if printer down due 
to previous printer error. 
2. Place the address $$PYMP plus the contents of 
$SEXTFR at $PRDEV. 


#GUFUD 
Figure 3-22 
Via $CARPL 


BR1112 


Figure 3-69, WRITE Keyword Program (#KWRIT) Flowchart 
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COMMON SUBROUTINES 


System Work File IOCS—DL4ICS (Figure 3-70) 


e DL4ICS converts relative disk addresses to physical disk addresses within the work 
file or virtual memory. It calls DKDISK to perform the disk I/O operation. 


e The calling sequence for DL4ICS is: 


B DL4ICS 


DC AL2(DPL) DPL is the address of the disk parameter list (Figure 3-3). The second 
byte of the disk address is a relative sector displacement. 


The disk address is specified as a physical cylinder, and a single-byte sector displacement 
relative to sector 0 on the specified cylinder. If a multiple-sector operation is required, 
DLA4ICS splits the operation and makes multiple calls to DEDISK if necessary to 
properly cross cylinder boundaries. 


Disk Logical IOCS—DL2ICS (Figure 3-70) 


e DL2ICS converts relative disk addresses to physical disk addresses within a two-track 
file, and calls DKDISK to perform the disk I/O operation. 


e The calling sequence for DL2ICS is: 


B DL2ICS 


DC AL2(DPL) DPL is the address of the disk parameter list (Figure 3-3). The disk 
address is a two-byte relative displacement. 


The disk address is specified as a two-byte cylinder and sector displacement relative to a 
predefined disk address. This predefined disk address (two-byte physical address) must 
be stored at label DL2RAD prior to the first call to this IOCS. Files accessed by this 
IOCS are logically on one volume; therefore, the disk ID and drive number do not change 
from those specified in the predefined starting address. 
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DL2ICsS 
DL2002 


Save DPL 
from calling 
sequence, 


DL2005 © 


Increment cylinder 
number and subtract 
48 from sector dis- 
placement until it 
goes negative; then 
add back 48. 


DL2008 


Shift remaining 
sector displacement 
left 2 bit positions 
for physical disk 
address, 


Add the starting 
address at label 
DL2RAD to DPL 
address (cylinder 
and sector), 


DL2100 


Increment track 
(carries to cylinder) 
and subtract 24 from 
sector displacement 
until It goes negative; 
then add back 24, 


DL2110 
$DISKN 3-7 


Pass physical DPL 
to DKDISK and 
do 1/0, 


DL2910 


Return to 
Calting Program 


DL4ics 


DL4020 


Save DPL 
from calling 
sequence, 


DL4035 


Initialize for 
removable disk 
and track zero. 


DL4040 


Increment cylInder 
and subtract 96 from 
sector displacement 
until displacement is 
lass than 96, 


DL4050 


If remaining sector 
displacement is 48 
or more, set bit for 
fixed disk and sub- 
tract 48 from sector 
displacement, 


Sector Count 
More Than 


Add sector count 
to remaining sector 
displacement, 


Is 
Result More 
Than 48 


Operation will hit 
end of cylinder so 
divide sector count 
for 2 1/Os, 


If remaining sector 
displacement is 24 
or more, set bit for 
track 1 and subtract 
24 from sector dis- 
Placement, 


DL4080 


Shift remaining 
sector displacement 
left 2 bits for physi- 
cal disk address. 


Move previously 
computed disk |D 
and track to physi- 
cal disk address, 


DL4100 
$DISKN 3-7 


Pass physical DPL 
to DKDISK and 
do 1/O, 


Split 
Operation 


DL4600 


Return to 
Calling Program 


Move in adjusted 
sector displace- 
ment and count 
for second I/O, 


BR1115 


Figure 3-70. Disk I1OCS Routines (DL2ICS, DL4ICS) Flowchart 
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Line Printer Interface-—DLPRNT (Figure 3-71) 


e DLPRNT allows device independence when listing lines on the CRT or matrix 
printer. 


e Ifthe CRT is to be used, the speed of the displayed lines is controlled, and the 
roll-stop and popup commands are recognized. 


e If the bidirectional printer is used, printing is done in both directions, 
e The calling sequence for DLPRNT is: 


B DLPRNT 
DC AL2(PPL) PPL is the address of the print parameter list (Figure 5-23), 


To control which device receives the output, a device type code may be placed at the 
label DLPTYP. The device type code is the displacement (from DLPRNT) to the routine 
for interface to the proper device. DLPTYP is initially set for output on the system 
printer, Values at label DLPTYP define the displacement equated to the label and its 
associated device: 


Label Device 


DLPMPR For output on MP 
DLPCRT For output on CRT 
DLPSPT For output on system printer 


Note: Entry to DLPRNT 
is on part 2, 


DCR650 
DCR200 


Have 
14 Lines 
Been 
Displayed 


Turn off 
command 
lights, 


Wait 
Function 


Set roll 
stop mode 
indicator, 


Requested 


Than 14 Lines 
Displayed 


DCR500 


Reset count 
of lines 
displayed, 


Add 1 to 
count of 
lines displayed, 


Loop until 
another mode 
is selected. 


BR1117.1 


Figure 3-71. Line Printer Interface (DLPRNT) Flowchart (Part 1 of 2) 
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DLPRNT 


DPRINT 3-29 


Branch 
Initialized 
by Calling 
Program 


Print and index; 
no carrlage return, 


DCRTIF 
DSPLYN 


3-32 


Pass PPL to 
CRT IOCR, 


Printer 


DSPLYN 3-32 


Pass PPL to 
CRT IOCR. 


Set up buffer for 
another print, 


Is 
MP Output 
also Required 


DPRINT 3-29 


Printing No Carriage return, 


Requested 


directional 
Option on 
MP 


DLIOS2 


DPRINT 3-29 


Exit to MP |OCR 
via nucleus system 
printer interface. 


DLI200 


Wait 
Function 


Exceeds 
Printing 
Width 


Clear buffer to 
blanks and move 
data to buffer, 


Set up to print full 
line and to re-enter 
this routine with 

residual, 


DLI300 


DLI410 


$UNMSK 3-10 


Set up for 
right or left 


Check for 
inquiry request. 


printing. 


Return to 
Calllng Program 


BR1117.2 


Figure 3-71. Line Printer Interface (DLPRNT) Flowchart (Part 2 of 2) 
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Card Punch IOCR—DCDOUT (Figure 3-72} 
e DCDOUT performs punching I/O for the data recorder. 


e@ When the call is made to this routine, the previous punching operation is checked 
for errors before starting the new request. 


e The routine then exits, allowing continued processing while the card is being 
punched. 


e@ The calling sequence for DCDOUT is: 


B DCDOUT 
DC AL2(PPL) PPL is the address of the print parameter list (Figure 5-23). 


1/0 Routines 
Two I/O functions are provided by DCDOUT: 


1. Punch—96 bytes of data are punched (80, if configured for the 129), starting at the 
core address specified in the PPL. 

2. Wait and check for errors—This function allows the punching operation to 
complete error-free before returning to the calling routine. 


Error Recovery Procedures (ERP’s) 


No error returns are made to the calling program. Al! ERP’s are included within the 
LOCR. Not-ready conditions cause a soft halt. Off-line and hopper full/empty conditions 
cause the CPU to loop on the TIO until the problem is corrected by the operator. Once 
the problem has been corrected, the SIO sent to the device is executed automatically. 

Data compare errors are retried once. Incorrect card code is accepted from the sys-. 
tem, but the resulting punched card is bad. 

If five compare errors or hopper jams occur in one operation, the system comes to a 
hard halt, requiring a re-IPL. Errors are logged on the fixed disk. 
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DCDOUT 


DCDOUT 


Mask 
inquiry 
requests, 


DCD200 


Wait for 


Previous Op 


Sense 
device 
status. 


$DISKN 3-7 


Walt call to 
log the error, 


Wait 


: Yes 
Function 
Requested 
error history 
log entry. 
$UNMSK 3-10 : 
Soft Halt 
Unmask Second 
inquiry $DISKN 3-7 


requests, 


Wait call to log 
error and hard 


stop. 


Return to 
Calling Program 


DCD530 


Hard Hait 


Figure 3-72. Card Punch IOCR (DCDOUT) Flowchart 
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Work File PUT Subroutine—GPUTIT (Figure 3-73) 


@ GPUTIT is a routine used to place single statements in the work file or in a temporary 
VM file, in ascending order. 


When this routine is first called, it initializes the file index table and places the statement 
passed to the routine in a core buffer as the first statement of a new file. Each statement 
passed via a subsequent call to GPUTIT is placed in the core buffers, following the pre- 
vious statement. As a statement is placed in a core buffer, the file index table (refer to 
Figure 5-16) is adjusted to reflect the inclusion of that statement unless GPUTIT = 1 
(set on). 

When a core buffer is filled to capacity, it is written to disk, and file building continues 
in the alternate core buffer. When the last statement of the file has been placed in a core 
buffer, it is followed by the end-of-file record. The last core buffer is then written to 
disk, 


GPUTIT 


Work 
File Size 
Exceeded. 


GPU150 
GPU300 


Space 
Remains for 
Line and 
EOF 


Initialize pointers 
and counters for 
first PUT, 


GPU340 


Set EOF indicator 
and move EOF 
record to output 
buffer, 


Refer to GCPACK 
in work file update/ 
crusher program 
(#GUFUD), 


Pack BASIC pro- 
gram statements 
using GCPACK 
subroutine. 


BR1120.1 
Figure 3-73, Work File PUT Subroutine (GPUTIT) Flowchart (Part 1 of 2) 
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Calling Routine 


0 
ope GPU460 


Increment count 


Reset pointers 
and counter for 
next block, 


of lines in the 
work file, 


Minimum 


Space Remains nS EOF 
In Buffer or Secondary 
Segment 
Yes 
GPU230 
Yes 


Secondary 
Segment 


GPU360 


Line 
Fits in 
Buffer 


GPU380 GPU240 


Move segment to 
output buffer and 
adjust pointers. 


Complete FIT 
entry for full 
disk block, 


GPU247 


Divide the line into 
2 segments; move the 
first to the output 
buffer. 


EOF 


GPU400 


Set up for move 
of second segment 
to buffer, 


Create a null SDF 
at end of disk block 
if space remains. 


GPU450 


DL4IiCS 3-70 


Write full disk 


block to work 
file, 


GPUERR 


$CAERK 
Figure 3-9 


BR1120.2 


Figure 3-73. Work File PUT Subroutine (GPUTIT) Flowchart (Part 2 of 2) 
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Work File Retrieval Subroutine—GRABIT (Figure 3-74) 


e GRABIT locates sequential statements in the file specified by the user, and, depending 
upon the option chosen, passes back the statement or skips to the next, 


After being primed by the calling program, GRABIT reads logically consecutive blocks 
of segmented statements, from the file specified by the user, into core. GRABIT returns 
with @XR pointing to the binary line number of the next statement. 

In addition to @XR, GRABIT parameters can be set to cause the binary line number; 
the type code; and the unpacked, non-segmented text of the next statement to be placed 
in areas defined by the user. If GRABIT is used to skip through the statements without 
unpacking them or changing their length or segmented condition, GRABIT can be 
instructed to return the blocks to their original disk address if the specified file is accessed 
by DL4ICS. 


Segment 


No 


Initialize 
(00) 


GRA300 Yes Statement 


GRA200 
Set output 
Parameters, 
Set up DPLs for 
current and next 
input buffers, 
GRA210 


Yes 
Increment pointer 
Initialize pointers by length of next 
and counters for No segment. 
current input buffer, Set EOF code for SHASIE 
calling routine, 
Update pointers 
$DISKN 3-7 and counters, 
GRA220 
Wait call for 
initial buffer load. 
GRA317 End No 
of Buffers 
No BASIC 
Program File 
N Yes Return to 
= Calling Routine 
GRA250 
GRAS5O0O 3-74 


Unpack a segment 
from input buffer 
to GRTEXT, 


Access next 


jogical disk block. 


Set up to access 


work file with 
DL4iCs, 


BR1121.1 
Figure 3-74, Work File Retrieval Subroutine (GRABIT) Flowchart (Part 1 of 2) 
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GRA500 


$DISKN 3-7 


Wait for completion 
of prior read. 


GRA310 


DL4ICS 3-70 


Write current buffer 
to work file. 


GRAS5OO 3-74 


Fill input 
buffers, 


Return to 


Update poltnters 
p p Calling Routine 


and counters, 


All 
Input Buffers 
Empty 


DL4ICS 


3-70 


Access method is 
sequential with 2 
1/O areas, 


Read next logical 
block from work 
file. 


DL2ICS 3-70 


Fill all buffers 
from saved file, 


Next 
Segment 
Null 


Return to 
Calling Sequence 


Primary 


Note: Logic represented on this flowchart may 
Segment 


not be present In programs that do not 


require those instructions. j 
Set hard 
error 
indicator, 
$CAERK 
Figure 3-9 
Statement 
Return to 
Calling Routine 
BR1121.2 


Figure 3-74, Work File Retrieval Subroutine (GRABIT) Flowchart (Part 2 of 2) 
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Find Specified Fite Subroutine—SFINDF (Figure 3-75) 
e SFINDF is a control subroutine used to locate a specified password and/or filename. 
The function of SFINDF depends upon the way the file is specified: 


1. Ifa filename, password, and volume-ID are all explicitly specified, SFINDF issues 
calls to SVOLID, SGETDB, and SRCHEN to search the appropriate file library 
directories to find the specified file. 

2. Ifthe password or volume-ID is not explicitly defined, SFINDF defaults to the 
current user specifications, if they exist, for the missing parameters and then 
issues the required calls to SGETDB and/or SRCHEN to locate the file. 

3, Ifa one-star (*) or two-star (**) filename is specified, SFINDF either searches 
the specified disk if a volume-ID was specified or searches every disk on the 
system for the file if a volume-ID was not specified, Parameters may be set to 
terminate the search after processing a specified number of disks containing 


file libraries. 
SFINDF 


Password 
Specified 


Password 
Logged-On 


Volume-ID 
Specified 


Password 
Logged-On 


SF(505 


$CAERK 
Figure 3-9 


SVOLID 3-76 


Search volume- 
ID table. 


Library 


Password 
Logged-On 


SF1340 


Set disk address 
of logged-on library. 


Set up to search 
all file libraries, 


BR1122.1 
Figure 3-75. Find Specified File Subroutine (SFINDF) Flowchart (Part 1 of 2) 
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SF1510 


DL2ICS 3-70 


Get first filename 
directory block. 


SF1520 
SRCHEN 3-78 


Search filename 


SF!I350 directory. 


SGETDB 


3-77 


Search password 
directory. 


Filename 
Found 


Password 
Found 


More 
Libraries to 
Search 


Set error code 
for not found. 


Password 


Searching 
For 


SFI550 


Return to 
Calling Routine 


Filename 


BR1122.2 


Figure 3-75. Find Specified File Subroutine (SFINDF) Flowchart (Part 2 of 2) 
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SVOLID 


Set up to scan 
Volume-{D tabie 
in the system 

nucleus, 


Volume- 
IDs Equal 


Save table 


increment pointer 
to next entry. 


Find Volume-ID Subroutine—SVOLID (Figure 3-76) 


e SVOLID searches the volume-ID table in the nucleus communications area for a 
specified volume-ID. 


SVOLID scans the volume-ID table for a specified volume. If the volume is not found, 
an error code is put in $CAERR and an exit to SVOERR in the using program is taken. 
If more than one volume with the same volume-ID is found, the user is requested to 
indicate which drive and disk is to be used. If the user is unable to resolve the conflict, 
the current system command is rejected. If the system input device is the card reader, 
and duplicate volume-ID’s have been found, the current system command is rejected. 


Keyboard 
Input 


$SPRNT 3-9 


Ask for drive 
clarification, 


DEPRES 3-30 


This routine tests 
for duplicates, Accept 


user response, 


Volume 
on 
Drive 


Volume 
Has 
Library 


$V0270 


$CAERK 
Figure 3-9 


Return to 
Calling Program 


BR1123 
Figure 3-76, Find Volume-ID Subroutine (SVOLID) Flowchart 
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Search Password Directory Subroutine—SGETDB (Figure 3-77) 


e SGETDB searches the password directory for a specified password or reads into core 
the first directory block of the file-specification password. 


SGETDB searches the password directory for a specified password and reads into core 
the first directory block associated with that password. If SM1PDS is set, only the entry 
address of the password is passed to the caller in SMPEAD. If the directory block is 
requested and the password is not found, the error code is placed in $CAERR, SM1PNF 
is turned on in SMIND1, and a normal return is taken, If only the password is requested 
and the password is not in the directory, the address for the next entry is passed in 
SMPEAD, SMI1PNF is turned on, and the return is taken. 


SGETDB 


End 
of 
Directory 


DL2ICS 3-70 


Read in pass- 
word directory. 


Save disk address 
of user directory 
from entry. 


$DISKN 3-7 


SGE055 


Initialize scan of 
password directory. 


SGEO80 


DL2ICS 3-70 


Start read of 
first user direc- 
tory block, 


SGE900 


Return to 
Calling Routine 


Increment pointer 
to next entry. 


BR1124 


Figure 3-77. Search Password Directory Subroutine (SGETDB) Flowchart 
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Search Filename Directory Subroutine—SRCHEN (Figure 3-78) 


e SRCHEN searches the filename directories for a specified filename. 


SRCHEN searches a filename directory (USER, POOL, or **) for the filename in 
SMFNAM. The directory buffers and work areas are assumed to be available in TSMLES. 
The calling routine starts the disk operation to read the first directory block. 

If the name is found, the address of the left byte of the entry is stored in SMUDEA 
and the SMIFNE bit of SMIND1 is set off. If the name is not found, the address where 
the next entry is placed is stored in SMUDEA and the SM1FNE bit of SMIND1 is set on. 
In both cases, SMUDBA contains the left byte address of the active block. 


SRCHFN 


Initialize 
buffer 
pointers. 


SRCO020 


$DISKN 3-7 


Wait for file- 
name directory 
block. 


Link 
Field Present 


Read next block 
to alternate 
buffer, 


SRCO30 


Initialize for 
scan of file- 
Name directory, 


SRCO40 


Increment pointer 
to next entry, 


End 
of Block 


Switch 
buffers, 


Set 
filename 
not found. 


SRCOS5O 


Save addresses 
for other routines. 


SRC900 


Return to 
Calling Routine 


Figure 3-78. Search Filename Directory Subroutine (SRCHFN) Flowchart 
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Save disk address 
of file from entry. 


BR1125 


Null Directory Entry Subroutine—STORIN (Figure 3-79) 
e STORIN creates an entry in the null directory. : 


If the entry cannot be created, an indicator is set to note that the file library should be 
packed. If the null space is contiguous to that of any other entries in the directory, 
STORIN adjusts that directory entry to include the space. 


STOR20 


STORIN 


Calculate high 
address of null 
space in low 

entry. 


Null 
Directory Complete 
Full Disk Addresses 


of Null 
Spaces 


Contiguous 
Space 


Null 
Directory 
Empty 


End 
of Directory 


Combine null 
space with 
low entry. 


Move new entry 
to directory. 


Increment pointer 
to next entry. 


Previous 


STOR47 


Combine up to 3 
contiguous entries. 


Calculate high 
address of null 
space in fast 
entry. 


Initialize for 
search of null 
directory. 


Contiguous 
Space 


Directory 
Full 


STOSAV 


Directory 
Full 


Insert new 
entry, 


STOR8O 


Set error code; 
entry cannot 
be made, 


Move new entry STOR48 STOR9O 


to next directory 
location, 


Return to 
Calling Routine 


Add null space 
to directory 
entry. 


BR1126 


Figure 3-79, Null Directory Entry Subroutine (STORIN) Flowchart 
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Filename. Directory Entry Subroutine—STUFID (Figure 3-80) 


e STUFID inserts one entry in a filename directory. If the directory is full, STUFID 
tries to create a new block automatically. 

STUFID adds a filename to a filename directory in the file library. If the directory is 

full, STUFID searches the null directory for a two-sector space to create a new directory 

block. If a space cannot be found, an error indicator is set in $CAERR and an exit to 

STUERR is taken. If the space is found, the new block is created, The write operation is 

started, to restore the affected directory block. 


STU040 


SURCHN 3-81 


Search null directory 
for 2-sector space, 


STUFID 


Point to location 
of new entry. 


Current 
Directory Block 
Full 


$CAERK 
Figure 3-9 


STUOS50 


Set Linkage in 
last block to 
new space, 


STUO010 


Locate end of 
active entries in 
current block, 


DL2ICS 3-70 


Write back last 
block to file 
library. 


STU020 


Move new entry 
to current block, 


STUO6O 


Build new header 
and move new entry 
to new block, 


DL2ICS 3-70 


Write block back 
to file library. 


DL2ICS 3-70 


Write new block 
to file library. 


$STU900 


Return to 
Calling Routine 
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Figure 3-80, Filename Directory Insert Subroutine (STUFID) Flowchart 
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Search Null Directory Subroutine-SURCHN (Figure 3-81) 


@ SURCHN searches the null directory for an entry of at least N sectors in size, where 
N is specified by the calling routine in SMNSCT. 


An attempt is made to find an entry in the directory of at least N sectors in length. Ifa 
directory entry is not large enough, it is added to SMNULT, which is an accumulated 
total of all available space for the file library. If the space required cannot be found, the 
calling program determines if the file library will be packed, by testing if SMNULT is 
equal to or greater than N. If the space is not found, a relative address of zero is returned 
in SMNDEA. If space is found, the relative address of the space is returned in SMNDEA. 


SURCHN 


Any 
Entries in Null ; 
Directory 


SUROG2 


Search nuil entries 
for enough space 
to honor request, 


Indicate no 
space available, 


No (larger) 


Equal to 
Requested 
Space 


SUROA3 


SURO20 


Delete entry by 
shifting remaining 
entries in null 
directory, 


Decrement size of null 
space by incrementing 
starting disk address, 


SURO24 


Update null 
directory header, 


SUR900 
Return to 
Calling Routine 


Figure 3-81, Search Null Directory Subroutine (SURCHN) Flowchart 
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Track Usage Mask Utility Subroutine -UTKUSE (Figure 3-83) 

e UTKUSE tests and updates the track usage mask in the volume label (refer to Figure 
5-9). 

e The calling source module, assembled with UTKUSE, passes parameters via labels 
located within UTKUSE (Figure 3-82). 

@ Entries to UTKUSE are: 


UTKINP—Reads in volume label. 
UTKPRC—Bypass reading of volume label. 


The calling source module can test for space as close to cylinder 10 as possible by moving 
UTKFLG to TKSYLN, causing the initial cylinder number to default to 10, The function 
code (in this case) moved to UTKTYP would be UTKTBF (Figure 3-82). This subroutine 
scans the track usage mask for the first available and consecutive space (TKSCYL). 


Method Used to Displace into Track Usage Mask 


The cylinder number divided by 4 equals the byte displacement into the track usage 
mask, The remainder is used to displace into a table of bit masks: 


If Remainder Is Mask Is 

0 00000011 
1 00001 100 
2 00110000 
3 11000000 


TKSYLN 1 Initial cylinder number. If set to UTKLIM (X'FF’), the initial 
cylinder defaults to 10. 

Number of cylinders, 

Core address of volume label, 

Disk address of volume label. 

Function codes: 


UTKSBN (X‘3A‘}—Assign space, 
UTKSBF (X'3B’')—Release space, 

UTKTBF (X’‘39’)—Test for space available. 
UTKTBN (X‘38')—Test for space not available. 
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Figure 3-82, Parameters Passed to UTKUSE Subroutine 


Program Organization 3-119 


Licensed Material—Property of IBM 


UTKINP 


UTKREP 


$DISKN 3-7 


Read volume 
label, 


UTKPRC 


Cylinder 
Limits 


UTKO80 


Calculate dis- 
Placement into 
track usage mask, 


UTK250 


Perform function on 
specified cylinders, 


UTK600 


Indicate error 
condition, 


Return to 
Calling Routine 


BR1130 


Figure 3-83. Track Usage Mask Utility Subroutine (UTKUSE) Flowchart 
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VTOC Utility Subroutine—UTVTOC (Figure 3-85) 


e UTVTOC performs maintenance on the VTOC (refer to Figure 5-10) and volume 
label (refer to Figure 5-9). In version 1, modification 0, the ending disk address of 
the file is the address of the last track used, while in version 1, modification 1, the 
ending disk address of the file is the address of the next available track. After success- 
ful modification of any modification 0 file, UTVOC modifies the ending disk address 
of that file. 


e@ The calling source module, assembled with UTVTOC, passes parameters via labels 
within UTVTOC (Figure 3-84). An assembly that contains UTVTOC also contains 
UTKUSE (Figure 3-83) to test and update the track usage mask in the volume label. 


e Entries to UTVTOC are: 


UTVDEL—Delete a file. 

UTVEXP-—Increase file size. 

UTVSHK—Decrease file size. 

UTVIST—Allocate a new file at specified location. 
UTVDFT-—Allocate a new file as close to cylinder 10 as possible. 
UTVINF—Obtain information about file. 


Refer to the functions in the description of the calling source module for functions pro- 
vided by this subroutine. 


System files indicator Same as in volume label, Figure 5-9, 
Filename Not required for increasing, decreasing, 


or deleting system files. 
Physical disk address of VTOC index: 


X'0024’—R1 
X'0025'—F 1 
X'0026'—R2 
X'0027'—F2 


Used to increase, decrease, or allocate 
a file. 

Used when allocating a file at a specific 
location. 


VTOC disk address 


Number of cylinders 


Initial cylinder number 
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Figure 3-84, Parameters Passed to UTVTOC Subroutine 
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Entry 


Set flags 
for function 
to perform. 


No 


UTV170 


Save parameters 
and registers, 


Mask 
console 
interrupts, 


$DISKN 3-7 


Read 


VTOC index, 


8/3 BASIC No 
File 


UTV200 


Set bits to 
indicate which 
volume, 


$DISKN 3-7 


Read volume 
label, 


S 


UTV420 


Read file label 
from VTOC. 

Adjust address 
if necessary. 


Reiease 
disk space, 


Determine 


S/3 BASIC 
index tag, 


Search VTOC index 
to insure there is 

not a SCP file on the 
disk with the same 
name, 


UTV425 


UTKPRC 3-83 


Allocate 
disk space. 


UTV350 


Search VTOC 


index for tag 
or filename. 


UTKPRC 3-83 


Test for, and then 
assign, disk space, 


Deletion Build the label. 


UTV500 


UTV400 


' $DISKN 3-7 


Set output 
parameters, 


Read file label 
from VTOC. 
Adjust address 
if necessary. 


Write updated 
VTOC index, 


UTV435 
$DISKN 3-7 


Write new or updated 
file label to VTOC. 


UTKPRC 3-83 


Release 
disk space, 


Information 
Only 


$DISKN 3-7 


Write updated 
VTOC index. 


UTV600 


S/3 BASIC 
File 


$DISKN 3-7 


Write back 
volume tabel, 


Write the modified 
format 1 entry 
to disk. 


Update fields in 


volume label. 


Return to 
Calling Routine 


BR1132A 


Figure 3-85. VTOC Utility Subroutine (UTVTOC) Flowchart 
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ease 


Pack File Library Subroutine—#SPACK (Figure 3-86) 
|] e #SPACK reorganizes the file library and eliminates imbedded null sectors. 


The null directory is referenced to determine where there are null sectors in the file 
library. All files and directories are moved up the disk to eliminate imbedded null sectors 
until all null sectors are located at the end of the file library. All pointers are updated to 
the new location. The sequence of the records in the file library is not changed. 


#SPACK 


PRINT PACKING MESSAGE AND LOAD OVERLAY 


SPACKU 


1. Cail $SPRNT to print packing message. 
2. Call $DISKN to read in null directory. 
3. Call LOADR to load #SPOVL. 


SPAO010 


BUILD UPDATE TABLE 


1. Set sums of preceding null sectors in each entry. 
2. Build additional entry with null total. 


SPA030 


UPDATE DIRECTORIES 


Cat] DL2ICS to read in user directory. 
. Go to SPADUP to update user directory. 
. Go to SPAPDT to update password entry. 
. On last password call DL2ICS to write directory. 
. Exit to #SPOVL. 


#SPOVL 


PACK LIBRARY AREA 


1. Move active user files toward the front 
of the file library. 


Return to 
calling program 


BR1133.1 


Figure 3-86. Pack File Library Subroutine (#SPACK) Flowchart (Part 1 of 2) 
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SPADUP 


UPDATE USER DIRECTORIES 


. Call SPAPDT to update directory header. 
2 Call SPAPDT to update directory entries. 
3. On last entry call DL2iCS to output directory. 


RETURN 


SPAPDT 


UPDATE DADDR IN ARGUMENT 
1. Find null entry greater than} argument. ; 
2. Decrement disk addresses by value in update table. 


RETURN 


Figure 3-86. Pack File Library Subroutine (#SPACK) Flowchart (Part 2 of 2) 
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UTILITY PROGRAMS 


ALTERNATE-TRACK Utility Program—#UATRC (Figure 3-87) 
e #UATRC tests, assigns, and unassigns alternate data tracks. 


e The assembly of #UATRC contains this major source module: 


UATRCK—Mainline logic, Figure 3-87 
Two alternatives are available in determining the suspected defective track: (1) specify a 
physical track, or (2) default to the tracks logged in the suspect track log in the volume- 
label sector. Either TEST or ASSIGN is valid in this case. 
#UATRC performs one of four functions: 


1. | A suspected operative data track can be unconditionally flagged defective and 
assigned an alternate. 

2. Asuspected operative data track can be tested. The track is flagged defective and 
assigned an alternate based on the results of the test. 

3. A flagged data track can be unconditionally restored to operative status. The 
alternate is unassigned. 

4. A flagged data track can be tested. The track is restored to operative status based 
on the results of the test. The alternate is unassigned. 


Data is transferred if it can be read without an unrecoverable error. 
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UAT100 


3-126 


NOOO NV 


PROCESS UNCONDITIONAL UNASSIGN 


Write normat !D on track to be returned to 1. If no track specified, fetch one from suspect track 
operative status (reset defective flag). table. If none, exit to 7ERRPG via $CAERK. 
Transfer data from the alternate to operative track 2. Pick an alternate track from available alternates. 
via $DISKN. If none, exit to #ERRPG via $CAERK. 
Write norma! 1D on alternate track. 3. Write alternate 1D on chosen alternate track. 
Remove entry from alternate track table. 4, Transfer data from defective track to the alternate 
Print unassignment messages via $SPRNT. via DKDISK, 
If data unrecoverable, print error 598 via $SPRNT. 5. Write defective ID on defective track. 
If data recoverable, print DATA RECOVERED 6. Place assignment entry in alternate track table. 
MSG via $SPRNT. 7. Print assignment messages via $SPRNT. 

8. If data unrecoverable, print error 598 via $SPRNT. 

9. If data recovered, print DATA RECOVERED 

message via $SPRNT. 
10. If track address taken from suspect track table, 


#UATRC 


UATOOO - 


SYNTAX CHECK AND SAVE PARAMETERS 


Enter SDISKS to get disk specification. 

Enter SCYLCK to get track specification. 

Enter C4BIN2 to get retry count. 

Perform syntax check on other parameters. 
Exit to #ERRPG via $CAERK on syntax errors. 


Sie ON > 


UNASSIGN ASSIGN 


Request 


PROCESS UNCONDITIONAL ASSIGNMENT 


remove entry from table, and repeat steps 1-10 
until all entries processed. 


TEST SUSPECT TRACKS 


. If no track specified, fetch one from suspect track table, if none, exit 
to H#ERRPG via $CAERK. 

. Pick an alternate from available alternates, if none, exit to HERRPG 
via $CAERK. 

. Write alternate ID on selected alternate. 

. Transfer data to alternate from the suspect track via DKDISK. 

. Perform surface analysis the specified number of times on suspect 
track. 

. If defective, write defective ID on suspect, log assignment in alternate 
track table, and print assignment messages via $SPRNT. 

. lf track found operative, restore data and track IDs involved. 

. If data was lost, print error 598 via $SPRNT. 

. If data was recovered, print DATA RECOVERED message via 
$SPRNT. 

. If track address was from suspect track table, repeat steps 1-9 until 

all entries have been processed. 


= 


S CON OD OAW DN 


= 


#GUFUD 
Figure 3-22 

Via $CARPL 
BR1134A 


Figure 3-87. ALTERNATE-TRACK Utility Program (#4UATRC) Flowchart 
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ASSIGN Utility Program—#UALLO (Figure 3-88) 
e #UALLO allocates disk space for a system library file or a system work area. 


e@ The assembly of H}UALLO contains these major source modules: 


UALLOC—Mainline logic, Figure 3-88 
UTVTOC—VTOC subroutine, Figure 3-85 
UTKUSE-—Track usage mask subroutine, Figure 3-83 
DL2ICS—Disk logical IOCS, Figure 3-70 


Functions of HUALLO are: 


Check the track usage mask in the volume label (Figure 5-9) for contiguous space. 
Reset bits in the track usage mask that correspond to the tracks being allocated, 
Update other required fields in the volume label. 

Create an entry in the VTOC index and a label in the VTOC (refer to Figure 5-10). 
Create the null directory, password directory, and * and ** directories for the files 
(refer to Figure 5-11), 


sd asd 
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#UALLO 


Assign 
Library 


UALLOC 


SYNTAX CHECK PARAMETERS, CONVERT 


Enter SDISKS to complete specifications. 

Enter $CAERK to print error messages for syntax 
errors. 
Enter SCANIT to scan across blanks. 

Enter SCYLCK to convert track specifications. 
Enter $CAERK to print error message if library 
already exists, 


ON Oe Ni 


UAL120 


CREATE VTOC LIBRARY FILE 


Enter UTVIST to insert library file in VTOC entries. 
Enter $CAERK to print error message if space not 
available. 
. Enter $CAERK to print error message if VTOC full. 


N= 


UAL800 


CREATE LIBRARY DIRECTORIES 


1. Create entries for null, password, pooled, and 
** directories, 
2. Eriter DL2ICS to write directories to disk. 


CREATE VTOC WORK AREA FILE 


UAL600 


SYNTAX CHECK PARAMETERS 


Enter $CAERK to print message if invalid 
"parameters. 
Enter SCANIT to scan across blanks. 
If no disk specifications, set to assign work area for 
R1 and F1, 

Enter SDISKS to complete disk specifications. 


. Enter $CAERK if disk specified is not initialized.. 


ak WN 


UAL120 


Enter UTVIST to insert work area file. 
Enter UTVDEL to delete work area file’ if it already 
exists. 

Enter $CAERK to print error message if space is 
allocated for another purpose. 
. Enter $CAERK to print a message if VTOC is full. 


Bo No 


#ERRPG #ERRPG 
Figure 3-17 Figure 3-17 
Via $CAERK Via $CAERK 


UAL400 ’ 


PRIME AND LOAD GUFUDI 


1. Enter $SPRNT to print completion message. 
2. Enter $CARPL to reload and execute GUFUDI. 


#GUFUD 


Figure 3-22 
Via $CARPL 


BR1135B 


Figure 3-88. ASSIGN Utility Program (#UALLO) Flowchart 
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CONFIGURE Utility Program—#UCNFI (Figure 3-89) 

e #UCNFI creates or modifies the configuration record on cylinder 0 (refer to Figure 
5-3). 

e The assembly of fUCNFI contains this major source module: 
UCNFIG—Mainline logic, Figure 3-89 


Each device present in the new configuration record is issued a test command before the 
record is written on the IPL’d volume. When configuring up to 3D or 4D, any VTOC 
entries that exist (on the new packs being configured) for scratch files are deleted from 
the VTOC. 


#UCNFI 


UCNFIG 


SYNTAX CHECK PARAMETERS AND SET INDICATORS 


Enter SCANIT to scan across blanks. 
Scan component fieid and set flag for parameters found in component 
field. 

Enter $CAERK to print error message if invalid keyword type. 
Enter $CAERK to print error message if repetition of parameters or 
invalid combination of parameters, 
Enter $CAERK to print error message if invalid parameter. 


a -£O No 


UCN600 


READ CONFIGURATION RECORD AND CHECK COMPONENT FIELD 


1. Enter $DISKN to read configuration record. 

2. Update configuration record with entries in component field. 

3. Enter $CAERK to print error message if CRT, 8K, 8 command key 
conflict. 


UCN900 


TEST CONFIGURATION RECORD AND MODIFY VOLUME 
IDENTIFICATION TABLE ENTRIES 


Enter MCNFIG to verify hardware and modify configuration indicators 
in NUCLEUS. 

2. Enter $DISKN to write configuration record to disk. 

3. Enter $DISKN to read volume labels and place in volume identification 
4. 


= 


table if not present. 
Delete entries in volume identification table if disk configuration no 
longer configured, 

5. Enter $CARPL to load and execute GUFUDI. 


#ERRPG 
Figure 3-17 
Via $CAERK 


#GUFUD 
Figure 3-22 
Via $CARPL 
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Figure 3-89, CONFIGURE Utility Program (#UCNFD Flowchart 
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COPY File Utility Overlay—#UCPLI (Figure 3-90) 


e #UCPLI copies a file defined by a label in the VTOC to another volume, or reposi- 
tions the file on the same volume, 


e #UCPLI is loaded by #UCDIS (Figure 3-91) when the command is either COPY- 
SYSTEM, COPY-LIBRARY, or COPY-HELPTEXT. 


@ The assembly of #UCPLI contains these major source modules: 


UCPLIB—Mainline logic, Figure 3-90 
DL2ICS—Disk logical IOCS, Figure 3-70 


If #UCPLI copies the file to another volume, a new label is created in the VTOC and the 
volume label is updated. If the file is repositioned on the same volume, the existing label 
in the VTOC is deleted, a new label is created, and the volume label is updated. When a 
file is repositioned on the same volume, the old area is no longer accessible, except by a 
disk dump, even if the disk areas did not overlap. 


#UCPLI 
UCP100 


SYNTAX CHECK AND LOOK FOR FILES ON SPECIFIED DISKS 


Check if parameter is System Library, or HELPTEXT. 
Call SDISKS to decode input/output disk specifications. 
Call UTVINE to look for file on output disk. 

Call UTVINF to look for file on input disk. 

Exit to $CAERK if any errors. 


ie eed oe 


#ERRPG 
Figure 3-17 
Via $CAERK 


UCP205 
DELETE AND INSERT FILE TO BE COPIED 


1. Call UTVDEL to delete old file if COPY is to same disk. 
2. Call UTVIST to insert the file in output VTOC. 

3. If COPY-SYSTEM or LIBRARY or HELPTEXT on same disk, 
update pointers in nucleus, 


UCP500 


COPY FILE UPDATE PTF LOG 


. Call DL2ICS to copy file. 
. If COPY-SYSTEM or LIBRARY or HELPTEXT to new disk, 
update PTF log on new disk. 
. {f COPY-SYSTEM to another disk, copy IPL sector and Nucleus. 
. If COPY-SYSTEM/HELPTE XT to another disk, copy PTF 
log entries, 


. Exit to $CARPL to load #GUFUD. 


#GUFUD 
Figure 3-22 
Via $CARPL 
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Figure 3-90, COPY File Utility Overlay (#UCPLI) Flowchart 
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COPY Volume Utility Program—#UCDIS (Figure 3-91) 
e #UCDIS copies the entire contents of a disk volume to another volume. 
e The assembly of #UCDIS contains these major source modules: 


UCDISK—Mainline logic, Figure 3-91 
UTKUSE-Track usage mask subroutine, Figure 3-82 


The DISK parameter causes a track-for-track copy of the entire input volume to the 
output volume with the exception of the error log statistics and program protection 
sectors on cylinder O (refer to Figures 5-3 and 5-4), The volume-ID’s of both volumes 
are verified prior to each copy operation. 

The following parameters in the volume label (refer to Figure 5-9) are not copied: 


Alternate tracks 

Cylinder count 

Suspected defective tracks 

Volume label 

Owner I/D 

Track usage mask in its-entirety (except in copying the contents of one 200-cylinder 
disk to another 200-cylinder disk) 


On one disk read or write, 12 sectors are transferred on an 8k system and 24 sectors 
are transferred on a 12k or 16k system (12 sectors if 12k and CRT). 


See AUN 
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#UCDIS 


UCDS00 


SYNTAX CHECK ALL DISK SPECIFICATIONS 


Enter $RLOAD to load HUCLIB if LIBRARY, SYSTEM, or HELPTEXT 
specified. 

Enter SDISKS to complete disk specifications. 

Enter SCANIT to scan across blanks. 

Point pointer to beginning of disk specifications after completing all 
syntax checking. 

Enter $CAERK to print error message if syntax errors. 
Enter $CAERK to print error message if drive 2 not on system. 
Enter $CAERK to print error message if missing parameter. 


= 


NOg AWN 


. Enter $DISKN to read volume labels of disk pairs. 

2. Enter $CAERK and print message if volume labets invalid and enter a 
soft halt. 

3. Enter UTKPRC to determine if VTOC files exist on output disk, or if 

VTOC files exist on the second 100 cylinders of the input disk when 

copying to a 100-cylinder disk, and enter $CAERK to print message 

if VTOC files exist. 

Mask inquiry request. 

. Move alternate track assignments, cylinder count, volume label and 

owner identification to write disk. Adjust track usage mask, if 

necessary. 

Determine lesser number of cylinders of disk pair. 

Enter $DISKN to write volume label to write disk. 

Enter $DISKN to copy IPL sector, configuration record, and VTOC 

tables, to write disk. 

Enter $DISKN to copy lesser number of cylinders. 

Point pointer to next disk pair if any left. 


as 


SO BND 


Last Disk Pair 


Yes 
Hard Halt 


Figure 3-91, COPY Volume Utility Program (#UCDIS) Flowchart 


#ERRPG 
Figure 3-17 
Via $CAERK 
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EXPAND Utility Program—#UEXLI (Figure 3-92) 
e #UEXLI changes the disk space allocated to a library file. 


e@ The assembly of #UEXLI contains this major source module: 


UEXLIB—Mainline logic, Figure 3-92, 
Functions of #UEXLI are: 


1. Check the track usage mask in the volume label (refer to Figure 5-9) for available 
tracks when enlarging the library. 

2. Set or reset bits in the track usage mask to reflect the change, 

3. Update other required fields in the volume label; update the VTOC index and file 
labels. . 

4. Update the null directory for the library. 
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#UEXLI 


UEXLIB 


SYNTAX CHECK PARAMETERS 


Enter $CAERK to print error message if syntax errors. 
. Enter SDISKS to complete file specifications. 

Enter SCYLCK to convert number of tracks to number of cylinders, 
. Enter $CAERK and print error message if no library exists. 


PWN 


UEX300 


UPDATE FILE ENTRIES 


Enter $DISKN to read last entry in null directory. 
Decrease sector count in entry if space available to 


UPDATE FILE ENTRIES 


1. Enter UTVEXP to expand library file and adjust 
volume label and VTOC entries. 


contract. . Enter $DISKN to print error message if space not 
Enter $CAERK to print error message if active files available. 
exist. . Enter $DISKN to read null directory. 


. Update null directory sector count and cylinder 
count. 

. Create new entry if no more entries available. 

. Enter $DISKN to write null directory to disk. 


Update cylinder count in directory header. 

Enter $DISKN to write null directory to disk. 
Enter UTVSHK to contract library file and adjust 
entries in volume label and VTOC entries. 


Ogb © N= 
on Bw nN 


PRIME AND LOAD #GUFUD 


1. Enter $SPRNT to print completion message, 
2, Enter $CARPL to reload and execute #GUFUD. 


#GUFUD 
Figure 3-22 
Via $CARPL 
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Figure 3-92, EXPAND Utility Program (#UEXLI) Flowchart 


INITIALIZE Disk Utility Program—#UINIT (Figure 3-93) 


e #UINIT formats and tests all tracks, including alternate tracks. Data tracks found 
defective are flagged and alternate tracks are assigned. 


e The assembly of #UINIT contains this major source module: 


UINITL—Mainline logic, Figure 3-93 
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Functions of #UINIT are: 


1. Clear the data field of all sectors to binary 0’s. 

2. Flag the addresses on tracks found defective and assign an alternate (refer to 
Figure 3-5) 

3. Create the volume label (refer to Figure 5-9) 

4. For PRIMARY initialization, write instructions on cylinder 0, head 0, sector 0, 

that will cause a hard halt if IPL is attempted. on the volume. 

Change the volume-ID with the CHANGE option. 

Extend the initialization of an existing pack initialized to 103 cylinders. 

Write VTOC index initial error logs. 

For secondary initialization, delete all scratch file entries that may have been left 

in the VTOC by the co-resident disk system management programs. 

9. Test for a valid system work area. If an invalid system work area is found, an 


error message results. 
#UINIT 
UINOOO 


SYNTAX CHECK AND SAVE PARAMETERS 


Enter SDISKS to get disk-specification. 
Enter SALPHA to get OWNERID. 
Enter C4BIN2 to get testing count. 
Check other parameters. 

Exit to $CAERK on syntax errors. 


oN AM 


OPON> 


UIN100 


CHECK FOR PARAMETER CONFLICTS 


1. If any of the following exist, exit to ERRPG via $CAERK: 
a) SECONDARY specified for virgin disk, 

b) SECONDARY specified when disk is initialized to machine 
configuration, 

c) Active files in area to be initialized, 

d) Initialization specified beyond machine configuration. 


UIN300 


PERFORM SURFACE ANALYSIS 


Set starting cylinder address. 

. Write 1D on track the specified number of times, alternating between 
data patterns of hex 00 and hex 55. 

. If an error occurs enter UINERP 
Repeat steps 2 and 3 for all tracks to be initialized. 


BR1140.1 


Figure 3-93. INITIALIZE Disk Utility Program (#UINIT) Flowchart (Part | of 2) 
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UINSEK 


VERIFY CORRECT 1D ON ALL TRACKS 


1. Read back track ID from all tracks via DKDISK. 

2. Check all defective ID’s against alternate track table. 

3. If incorrect ID is read, repeat block UIN300 once — If second failure, 
exit to #ERRPG via $CAERK., 


UIN450 


FORMAT CYLINDER ZERO 


If primary initialization, perform the following: 

a) Set up initial volume label SCTR with VOLID and OWNERID, 
b) Place track usage mask, set on all bits beyond initialized area, 

c) Initialize VOL-LABEL indicators (including CE cylinder'status) , 
d) Write initial VTOC index and error log. 

Update alternate track table. 

Update track usage mask. 

Write volume label sector via DK DISK. 

MOUNT disk. 

Enter SUTOBA to check work areas. 


OaAPWN 


#GUFUD 
Figure 3-22 
Via $CARPL 


UINERP 


ASSIGN ALTERNATE TRACKS 


Retest suspect track ten times; if no failure, return to calling routine. 

If the track is not on the CE cylinder, select an alternate from available 
alternates; if none, exit to # ERRPG via $CAERK. 

. If the track is on the CE cylinder, do not attempt to assign an alternate 
to it. 

Write defective |D on bad track. 

Write alternate 1D on selected alternate. 

Place assignment entry in alternate track table 

Print assignment messages via $SPRNT. 
Return to process next track 


SNOT wW No 


Figure 3-93. INITIALIZE Disk Utility Program (#UINIT) Flowchart (Part 2 of 2) 
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PACK Utility Program—#UPACK (Figure 3-94) 


e #UPACK analyzes the disk specification and loads #SPACK (Figure 3-86) to pack 
the library file. 


e The assembly of #UPACK contains this major source module: 
UPACKU—Mainline logic, Figure 3-94. 


#UPACK 


UPACKU 


TEST FOR INITIAL OR SECOND ENTRY 
1. Test if DPLin $DPLSV is for UPACKU 


UPACKU Yes 
DPL 


‘No 


UPACKO 
SYNTAX CHECK AND LOAD SPACKU 


. Call SDISKS to decode disk specification. 

. Set user library base address. 

. Exit to $CAERK on any errors. | 

. Call S$RLOAD to load and exit to SPACKU. 


#SPACK 
Figure 3-86 
Via $RLOAD 


UPACK020 


PRINT UNITS ALLOCATED AND AVAILABLE 


. Call $DISKN to read null directory. 
. Calculate disk units available. 

. Calculate disk units allocated. 

. Calt $SPRNT to print message. 

. Exit to $CARPL to load #GUFUD. 


#GUFUD 
Figure 3-22 
Via $CARPL 


#ERRPG 
Figure 3-17 
Via $CAERK 


BR1141 


Figure 3-94, PACK Utility Program (#UPACK) Flowchart 
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PTF Utility Program—#UPTFI (Figure 3-95) 


e #UPTFI applies program temporary fixes to components residing in the system 
program file or to the help text file. 


e@ For PTF operating procedures, refer to “PTF Commands” in Section 6. 
e The assembly of HUPTFI contains these major source modules: 


UPTFIX—Mainline logic, Figure 3-95 

DL2ICS—Disk logical IOCS, Figure 3-70 
The PTF HDR (header) statement specifies the PTF identification, the disk to which 
the PTF is to be applied, and the disk from which the PTF will come, if it is from disk. 
Next, the PTF statement specifies the program name or help text component name and 
the system or help text release level. Then, one or more DATA statements are entered, 
specifying the core address and data of the patch or patches to be made. Multiple PTF’s 
may be applied by specifying a new PTF statement and DATA statement(s) for the pro- 
gram or help text component to be fixed. 

The components are updated when the PTF END statement is issued. This update con- 

sists of: 


1. Modifying the specified locations within the component(s). 

2. Updating the PTF log (refer to Figure 5-2). 

3. Deleting the system work area (if there is one) to force the modification of a 
program in the system work file. 
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UPT115 


ENABLE KEYBOARD 


Point @XR to input line. 
2, Set off command keys only 
indicator in system com- 


1. 


UPT130 


munication area. 


Loop untit the keyboard is 


not busy. 


This a Header 
Statement 


Page of LY34-0001-1 
Revised January 1972 
By TNL LN34-0075 


#UPTFI 


#UPTFI 


SYNTAX-CHECK INPUT LINE AND PERFORM INITIALIZATIONS 


Print error message and exit to $CAIPL if ‘PTF’ is in the procedure. 

Exit to $CAERK to load #ERRPG (the error program) if anything except 
optional blanks and EOS follow the keyword. 

Read the volume label of the current disk. 

Exit to $CAERK if there is no work area assigned on this disk. 


PW N> 


UPT100 


Is 
Input From 
Keyboard 


No 


Is 
Input From 
Data Recorder 


No 


UPT105 


ENABLE CARD INPUT 


. Point @XR to input line. 

2, Branch to $$PRES to enable 
card input, 

3. Branch to $$CDBS to test for 
card input complete, and loop 
until the keyboard busy 
indicator goes off. 

4. Branch to $SPRNT to print 

the input line. 


GET NEXT LINE FROM DISK 


1. !f an internal indicator to read 
a sector is set on, read the next 
sector of the PTF file by calt- 
ing DL2ICS; set off the indica- 
tor to read; point @XR to the 
first column of the buffer to 
which the sector is read. 

2. \f an internal indicator to read 

a sector is set off, point @XR 

to the second card-image in 

the buffer and set the indicator 

to read on. 


ERROR EXIT : 


1. Jf input is from disk, print 
line in error by calling $SPRNT. 
2. Print error message. 
3. Restore checksum if the check- 
sum routine, CSUMCK, was 


. Take error exit if a Header was found before, 
Syntax-check line for PTF identification, check- 
sum, disk specification to which PTF will be 
applied, and optional! disk specification if PTF 

is coming from a disk file. 

Take error exit if an error exists in any parameter. 
Take error exit if ‘.BS’ was the first part of the 
PTF identification and the disk specified does not 
contain a system program file. 

Take error exit if second disk was specified and the 
disk does not contain a PTF file; or if the PTF file 
exists but does not contain the specified PTF. 

Save helptext disk address and system pro- 


gram file disk address, 


called for this line. 


Is 
Input From 
Keyboard 


#GUFUD 
Figure 3-22 
Via $CAIPL 


Figure 3-95. PTF Utility Program (#UPTFI) Flowchart (Part 1 of 2) 
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UPT470 


PTF STATEMENT 


Is 
This a PTF 
Statement 


Is 


1, 


PON 
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Take error exit if a PTF statement was found 

before or if no HEADER statement has been found. 
Syntax-check line for component name, release 
level, and checksum. 

Take error exit if an error exits in any parameter. 

lf a help text component was specified, read 

the first sector of the help text to get the 
release level, set the component starting core 
address to X’0000' and establish the starting 

disk address of the component specified. 

If a system program file component is specified, 
search the system directory to find the component 
entry; save the component's relative disk address 
and starting core address. 


UPT580 


previously. 


This a DATA 
Statement 


Is 
This an END 
Statement 


Take Error 
Exit 


DATA STATEMENT , 


1. Take error exit if a PTF statement was not found 


2. If this is the first DATA statement, initialize 
information for GPUTIT and DL2ICS., 

3. Convert core address to hex and subtract. the com- 
ponent starting core address from it, leaving this 


displacement in GPUSMT. 


Mask against interrupts. 


4. 
5. 
6. 
7. 
8. 


Allow interrupts. 


#UPOVL 


Prime GRABIT buffers with first two sectors of 

virtual memory. (Call $DISKN) 

2. Make initial call to GRABIT. 

3. Call GRABIT to get one line of patch data. 

4. Increment program disk address by one sector, 

while subtracting one sector from patch displace- 

ment address, until displacement address is less 

than one sector. 

5. Read two sectors of the program to core. 

6. Patch program. 

7. Write the two sectors of the program back to disk. 

8. Branch to UPO760 to get more patch data until an 
EOF line is found. 

9. Read the PTF log to core, update it, and write it 

back to disk. 

If a work area is present, set a ‘VTOC-DELETE’ ' 

command in the input line buffer and call 

HFECMAN. | 

. Else, exit to $CAIPL. 


PERFORM ACTUAL PATCHING TO DISK 


Convert patch data to hex and save in GPUSMT. 
Save length of patch bytes in GPUSMT. 


Call GPUTIT to write the DATA to virtual memory. 


UPT690 


END STATEMENT 


1. Take error exit if at least one 
DATA statement was not 
found. 

2. Syntax-check line for valid 
checksum. 

3. Call GPUTIT to write an EOF 
line to disk in virtual memory. 

4. Call $RLOAD to bring to core 

#UPOVL (the overlay program). 


#ECMAN 


#GUFUD 
Figure 3-22 
Via $CAIPL 


Figure 3-95, PTF Utility Program (#UPTFI) Flowchart (Part 2 of 2) 
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VTOC-DELETE Utility Program—#UDELV (Figure 3-96) 


e #UDELV deletes System/3 BASIC files from a specified volume. If VTOC-DISPLAY 
is specified, the program #UDISV (Figure 3-97) is loaded. 


Functions of #UDELYV are: 
1. Delete the file label in the VTOC and the VTOC index entry (refer to Figure 
5-10). 


2. Set bits in the track usage mask in the volume label (refer to Figure 5-9), releasing 
the tracks occupied by the file. 

3. | Update other required fields in the volume label. 

4. Update required fields in the nucleus. 
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#UDELV 


#UDELV 


SYNTAX CHECK AND DETERMINE SECONDARY KEYWORD 


Syntax check command. 
If secondary keyword is DISPLAY, bring in overlay #UDISV via $RLOAD. 
If secondary keyword is DELETE, check for ‘-ALL’ following it. 

Syntax check input line. 

Set on disk-drive bits in physical disk addresses. 

Exit to #ERRPG on errors via $CAERK. 


MAPWN> 


ALL 
Specified 


UDE075 


ENTER ROUTINE TO DELETE ALL FILES 


Set internal indicator to delete all files, 
Process PTF log. 

Modify IPL sector on specified disk. 
Set the indicators in the nucleus. 

Set the indicators for UTVTOC to delete each file 
one at atime. (Makes five calls to this routine 
with no error checking for file not found.) 

. Branch to SUTOBA to check fora WORKAREA. 


[~ HELPTEXT 


PTF 
| LIBRARY | 
| WORKAREA 

is SYSTEM | 


ARON> 


#GUFUD 
Figure 3-22 
Via $CARPL 


UDE220 
DETERMINE AND DELETE SPECIFIED FILE 


. Determine file to be deleted and set indicator for UTVTOC. 

2. \f either SYSTEM or HELPTEXT was specified, delete corresponding 
entries from the PTF log. 

3. If SYSTEM was specified, write a halt to the IPL sector of the specified 
disk, and if that was the disk IPL’ed from, come to a hard halt via 
$CAERK. 
Set appropriate indicators in the nucleus. 
Go to UTVTOC to delete the specified file and set up the volume 
label, the VTOC index, and the file entry in the VTOC. 
Exit to $CAERK if the specified file was not present. 
Branch to SUTOBA to check fora WORKAREA. 


NO of 


#GUFUD 
Figure 3-22 
Via $CARPL 


BR1143A 
Figure 3-96. VITOC—DELETE Utility Program (#UDELV) Flowchart 
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VTOC-DISPLAY Utility Overlay—#UDISV (Figure 3-97) 


e #UDISV displays VTOC label information from a specified volume on the system 
printer. 


e #UDISV is loaded by #UDELV when the command is VTOC-DISPLAY. 
e The assembly of #UDISV contains this major source module: 


UDISVT—Mainline logic, Figure 3-97 
#UDISV displays the following information: 


Volume-ID. 

Owner identification. 

Alternate track assignments. 

Filename, starting address, size, and file type for each file in the VTOC. 
Initialized disk size. 

Number of unused VTOC file entries. 

Co-resident disk system management program files (starting address, size, and 
file type). 


NAM PYWNHE 
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#UDISV 


UDIO50 


SYNTAX CHECK INPUT LINE AND DETERMINE DISK-DRIVE 
SPECIFIED 


Syntax check and determine disk-drive specified via SDISKS. 
Syntax check to end of input line. 

Set up DPL addresses with disk-drive specification as determined by 
SDISKS. 

Exit to #ERRPG via $CAERK on errors. 


e ON> 


UD1I200 


GET VOLUME LABEL AND PRINT INFORMATION FROM IT 


1. After checking for disk initialization, read the volume label from 
specified disk via MINITL. (Exit to #ERRPG via $CAERK on 
errors.) 

2. Print via $SPRNT: 

a) Disk label, 
b) OWNERID, 
c) Initialized disk size. 

3. Convert binary defective track specifications to decimal via C2DECS5. 

4. Print via $SPRNT the defective and alternate tracks, or a message 

indicating that there are none. 


UDI400 
GET VTOC INDEX AND VTOC AND PRINT INFO ON VTOC FILES 


1. Read VTOC index and VTOC from specified disk via $DISKN. 

2. Check VTOC index for the presence of VTOC files. 

3. Go to the VTOC entry as located by the index and print via $sprnt: 

a) Filename of file, 

b) Starting address of the file, i Binary to decimal conversion 
c) Size of the file, via C2DEC5 

d) File type — {BASIC or non-BASIC). 

4. Print via $SPRNT, the number of VTOC file entries available, as 
specified in the VTOC index. (Binary to decimal conversion via 
C2DECS5). 

. If there are no VTOC files present, print message indicating that 

there are none (using $SPRNT). 


#GUFUD 
Figure 3-22 
Via $CARPL 
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Figure 3-97, VTOC-DISPLAY Utility Program (#UDISV) Flowchart 
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MAINTENANCE UTILITIES 
Refer to ‘‘Maintenance Utility Aid Program—#ZUTMO” in Section 6 for maintenance 
utility aid operating procedures. 


Maintenance Utility Monitor—#ZUTMO (Figure 3-99) 


e #ZUTMO performs these service aid functions: 


CD—Core dump 

DD—Disk dump 

VM-—Virtual memory dump (accomplished by #ZDUMP, Figure 3-101) 

CP—Core patch 

DP—Disk patch 

DC—Disk compare 

DW-—Disk write (copy sector) 

H-Restore core and halt 

R—Restore core and return to #GUFUD 

T—Reverse the program load trace option 
{| M—Library map and test 


e The assembly of #ZUTMO contains these major source modules: 


ZUTMON—Monitor and all functions except CP and M, Figure 3-99 

DL2ICS—Disk logical IOCS, Figure 3-70 
#ZUTMO is loaded by doing a system stop, system reset, and a system start, or by 
branching to core address 0. A branch to NPAUSD in the system nucleus is made 
at location 0 to save core. The CD and CP functions reference the saved core via 
the DPL used by NPAUSD. If the high limit of saved core is on a 4k boundary, it 
is assumed this address is the end-of-core address. Figure 3-98 is a sample core map 
showing #ZUTMO. 
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System Stop/System Reset/System Start 


Halt or Return 


Restored Problem Core Restore 


BR1i145 


Figure 3-98. Maintenance Utility Core Map, Example 
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ZUTPOL 


#ZUTMO 


ZUTOSR 


SELECT OPTION TO BE 
PERFORMED 


. Check line printer status, 


. Save status of printer and system 
Enter $$PRNT to print choice, 
after issuing a carriage return. 

. Enter SCANIT to check data. 


. Determine function: 

Core dump 

Disk dump 

Core patch 

Disk patch 

Disk compare 

Disk write 

Virtual memory dump 


ZUTPPR 


PRINT MESSAGES, SET 
PARAMETERS 


. Set message dependent on 
entry. 
. Enter $$PRNT to print 


messages. 
. Enter SCANIT to check input. 
. Pack data. 
. Set address parameters. 


. Exit to function: 
Core dump 
Disk dump 
Core patch 
Disk patch 
Disk write 
Disk compare 


Restore saved core, halt 


Change trace switch 
: Return to system 
Library map and test 


#ZLBMA 
Figure 3-102 
Via #RLOAD 


ZUTTFL 


ZUTRET 
RETURN 
1. Alter address in $PAUSD. 


status, 


$RSTR 
Figure 3-12 


2. Restore printer and system 


1. Restore printer and system 
status. 


ZUTVMD 


VIRTUAL MEMORY DUMP 


. Set messages for line numbers. 

. Enter $$PRNT to print request. 
Enter SCANIT to check data. 
Enter CABINZ2 to convert data. 
Enter DL2ICS to read in 
ZDUMPV. 

Enter ZDUMPV to dump 
virtual memory. 

Restore #ZUTMO. 


MN 9 gAoONS 


ZUTHLT 


HALT 


ZUTDPO 


DISK PATCH 


1. Set indicators for disk patch. 
2. Exit to patch disk like saved 
core, 


‘ZUTCPO 


CORE/DISK PATCH 


. Enter $$PRNT to request data. 
. Enter $$PRES to get data. 
Check for valid data. 

. Enter $$PRNT for error and 
print '?’, 

Convert data to hexadecimal. 
Determine real or saved core. 
Enter DL2ICS to move saved 
core/disk data to buffer. 

Patch core/disk. 


9 NOT BONS 
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Figure 3-99, Maintenance Utility Monitor (#ZUTMO) Flowchart (Part 1 of 2) 
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ZUTDDO 


DISK DUMP 


= 


SN 2 7 AYN 


ZUTCDO 


CORE/DISK DUMP 


. Determine real or saved core. 


S29 BB wo No 


Enter $$PRNT to request sec- 
tor count. 

Enter SCANIT to check input. 
Enter C4BIN2 to convert data. 
Convert disk addresses to hexa- 
decimal characters. 


. Enter $$PRNT to print head- 


ings. 


. Enter $DISKN to move sector 


to buffer. 


. Exit to perform disk dump 


like a dump of saved core. 


Enter $$PRNT to print 
headings. 


. Enter DL2!ICS to move saved 


core or disk data to buffer. 
Convert data to hexadecimal 
characters. 

Interpret hexadecimal 
characters. 

Enter $$PRNT to dump edited 
line, 


. Terminate dump at high limit 


or end of core. 


3-148 


. Enter $DISKN to read sector 


to be written. 
. Enter $DISKN to write read 
sector to specified address. 
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ZUTDCO 


DISK COMPARE 


. Enter $$PRNT to request sec- 


tor count. 


. Enter SCANIT to check input. 
. Enter C4BIN2 to convert data. 
. Enter $DISKN to get sectors 


to be compared. 


. Compare sectors, 
. If sectors are not equal, com- 


pare byte by byte. 


. Enter $$PRNT to print head- 


ing and data at 1st non-equal 
byte. 


. Continue comparison for all 


sectors specified. 


. Restore #ZUTMO. 


BR1146.2A 


Figure 3-99, Maintenance Utility Monitor (4ZUTMO) Flowchart (Part 2 of 2) 


VM Dump Overlay—#ZDUMP (Figure 3-101) 
e #ZDUMP interprets and lists the pseudo machine code in virtual memory. 


@ The assembly of #ZDUMP contains these major source modules: 


ZDUMPV-—Mainline logic, Figure 3-101 
DL4ICS—System work file IOCS, Figure 3-70 


e #ZDUMP is loaded by the maintenance utility monitor (Figure 3-99). The return entry 
in #ZUTMO reloads the overlay portion of #ZUTMO after completing the virtual- 
memory dump (Figure 3-98). 


A validity check is made on the pseudo op-codes although it is assumed the pseudo 
machine code is correct in virtual memory. Output is on the system printer, one line 
for each pseudo machine instruction. Each line contains the virtual-memory address, a 
mnemonic op-code and operand, and the actual hexadecimal pseudo instruction. The 
statement and image header op-codes also generate the BASIC statement line number in 
the output line. 

#ZDUMP contains a pseudo op-code branch table (Figure 3-100). The actual op-code 
indexes the table. 


Branch Table Entry (six bytes) 


7 


Pseudo Instruction Length 


Address of Routine in #ZDUMP to 
Process this Op-Code 


Note: The table contains one entry for each pseudo op-code, 
BR1147A 


Figure 3-100. #ZDUMP Branch Table 
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#ZDUMP 


VIRTUAL MEMORY DUMP 


. Set program. for tong precision if required. 

. Enter DL4ICS to get a virtual memory page. 
Set line pointer and virtual address pointer. 
. Clear output buffer. 

Move op-code mnemonic to output buffer, 
Branch to op-code processing routine. 

. Enter CVBHEX to convert pseudo instruction to 
EBCDIC. 

. Move EBCDIC instruction to output buffer. 

. Move instruction virtual address to output buffer. 
. Enter $$PRNT to print the output buffer. 

. Update pointers. 

. Exit to $CAERK on errors to load HERRPG. 


NAC0OM Noohwn= 


Last 
instruction 
Processed 


#ZUTMO 
Figure 3-99 


Figure 3-101. VM Dump Overlay (4#ZDUMP) Flowchart 


BR1148 


Library Mapping Overlays (Figure 3-102) 


e These maintenance utility overlays map and test the directories and files in the 
File Library. 


e There are five overlays in this group: 


#ZLBMA—Mainline entry routine. This routine calls one of the option overlays. 
#ZL1MA—Option 1 overlay. Maps null and password directories, 
#ZL2MA—Option 2 overlay. Maps a specified password. 

#ZL3MA—Option 3 overlay (part 1). 


#ZLVRL—Option 3 overlay (part 2). Maps ie coure Wor 


e #ZLBMA is loaded by the maintenance utility monitor (Figure 3-99). Each option 
reloads the maintenance utility monitor after completion of the option or if the 
option overlay is interrupted. 


e All output (maps and error messages) is displayed on the matrix printer. 
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#ZLIMA 


ZLiIMAP 


LIBRARY MAP OPTION 1 OVERLAY 
1. 


2. 
3. 


Enter DL2ICS to read the null 
directory into core. 


Enter $$PRNT to print headings. 
Process and print the entries from 


the null directory. 


Enter DL2ICS to read the password 


directory into core. 


Process and print the entries from 


the password directory. 


#ZUTMO 


Figure 3-99 


#ZLBMA 


ZLBMAP 


LIBRARY MAP ENTRY 


. Enter $$PRNT to print the 
option choice message. 
. Enter SCANIT to check the 


message response. 
. Enter $$PRNT to request 
the library address. 


. Enter SCANIT to check the 


library address response. 
. Determine option. Load 

correct phase from the 

program library. 


#ZL2MA 


ZL2MAP 


LIBRARY MAP OPTION 2 OVERLAY 


. Enter DL2ICS to read the null directory. Test 


the configured disk size against the library 
address. 

Enter $$PRNT to print headings. Enter $$PRNT 
to request a password (PSWD), 

Enter SCANIT to check the password response. 
Enter DL2ICS to read the password directory. 
Scan the password directory for a match to the 
password response. If not found, print error and 
exit to #ZUTMO. 

Enter DL2ICS to read in the first user directory 
block (UDB). 


. Process and print the filenames, testing non- 


program-generated files by scanning them in 
line number order. Also test the FIT. Test 
program-generated files for valid data and the 
presence of an EOF. 

Repeat steps 6 and 7 for each user directory 
block under the requested password. 


#ZUTMO 


Figure 3-99 


BR2672.1 


Figure 3-102, Library Mapping Overlays (Part 1 of 2) 
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#ZL3MA 


ZL3MAP 


LIBRARY MAP OPTION 3 OVERLAY 


. Enter DL2ICS to read the null directory into core. 
. Enter $$PRNT to print headings. 


. Enter $DISKN to read the volume label from the IPL‘d disk volume. 
. Test if the work area is defined. If it is not, test if the work area tracks are unused, 


No Print 
error 
message 


Disk 
area availabie 


#ZUTMO 
Figure 3-99 


Yes 


ZLBO50 


NULL AND PASSWORD DIRECTORIES 


. Set indicators in the nucleus communications area to no work area, 

. Build buffer entries for each null directory entry. !f the buffer count equals or exceeds 32, 
store 3 sectors of the buffer and continue processing null entries. 

. Enter DL2ICS to read the password directory into core, Build buffer entries for user 
directory blocks and files. After processing each user directory block, if the buffer count 
equals or exceeds 32, store 3 sectors of the buffer and continue processing user directory 
entries for this password. 

. Repeat the process for each password. 


#ZLVRL 


ZLVRL3 


SORT ROUTINE 


. Read the first 9 sectors of the buffer area into core and sort the entries by relative address. 

. If the entry count exceeds 96, store the first 3 sectors, shift the next 6 sectors to the front of 
the buffer, and read in the next 3 sectors from the buffer area. Repeat the process until all 
sectors are sorted by relative address. 

. lf the original total count exceeded 96, repeat the sorting technique, decrementing the count 
by 64 on each pass. 


PRINT MAPPING 


. Enter $$PRNT to print headings and entries for the null and password directories. 

. Enter DL2ICS to read 9 sectors of sorted entries into core. 

. Print each entry, testing for gaps and overlaps, and printing messages for errors and coincident 
entries. The entries are converted to the printed format, and printed by entering $$PRNT. 
lf the total print count exceeds 96, decrement by 96 and enter DL2ICS to read the next 9 
sectors of sorted entries into core, 

. Repeat the process until all sorted entries are printed. 


#ZUTMO 
Figure 3-99 


BR2672.2 


Figure 3-102, Library Mapping Overlays (Part 2 of 2) 
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COMPILER—#BCOMP, #BOVLY (Figure 3-119) 


Compiler input is a sequence of BASIC statements in the work file. Output is a sequence 
of pseudo machine code (PMC), constants, and run-time indicators in virtual memory. 
Both the work file and virtual memory reside in the system work area on disk. 

Refer to Section 7 for: 


How to take a sequential disk dump of virtual memory. 

Disk address specifications for the utility dump. 

Conversion of virtual addresses to disk addresses (Figure 7-1). 

Virtual memory map (Figure 7-2). 

How to lay out virtual memory (standard precision). 

Example of pseudo instruction references to virtual memory (Figure 7-3). 
How to lay out virtual memory (long precision). 

How to lay out an execution-time core dump. 

Fixed core addresses in execution-time core dump (Figure 7-4). 


CHI ANRWN- 


Compiler Cycle 


1. Retrieve one BASIC statement from the work file. 
2. Use the type code in the statement as a displacement into the statement branch 
table. 


3. Using the entry in the table, access a PMC generator and branch to it. 

4, Generate a sequence of pseudo machine code (PMC), constants, and/or indicators 
and write these to virtual memory. 

5. Perform steps 1 through 4 until the BASIC statements are depleted. 


PMC in virtual memory is in the same sequential order as the BASIC statements in the 
work file. 


Organization of Assembly Listings 
All modules of the compiler are contained in these two assemblies: 


1, Core resident routines-#BCOMP 
2. PMC generator (statement processor) overlays—#BOVLY 


Core Resident Routines—#BCOMP 
This assembly contains these executable source modules in this physical order: 


BGINIT—Compiler initiator 

BHDIST—Compiler distributor 
BAGETC-—Statement input subroutine 
BBPUTC—VM output subroutine 
BCFCON-—Constant generator subroutine 
BDSYMB-—Symbo] translator subroutine 
BECSCN—Character expression PMC subroutine 
BFSCAN—Arithmetic expression PMC subroutine 
BLISTA—Assignment list PMC subroutine 
BMATXR—Matrix reference PMC subroutine 
BRATAB-Branch table subroutine 
BUZDBN—Convert decimal to binary subroutine 
BVDL4T-—Disk logical [OCS interface 
BPALET—LET (arithmetic simple) statement processor 
BNRMRK-—REM statement processor 
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PMC Generator (Statement Processor} Overlays-H#BOVLY 
This assembly contains these executable source modules in this physical order: 


BNDATA—DATA statement 
BNFDEF—DEF statement 
BPMLET—LET (arithmetic multiple) statement 
BPCLET-—LET (character) statement 
BXPUTX—PUT statement 
BKFORX—FOR statement 
BKNEXT—NEXT statement 
BXGETX-—GET statement 
BKARIF-—IF (arithmetic) statement 
BTPAUS—PAUSE statement 
BKCRIF-—IF (character) statement 
BTSTOP—STOP statement 
BKGOTO—GOTO (simple) statement 
BKMGTO—GOTO (multiple) statement 
BKSUBG—GOSUB statement 
BXRSET—RESET statement 
BKRTRN—RETURN statement 
BXCLOS—CLOSE statement 
BPREAD—READ statement 
BPXRSR—RESTORE statement 
BXINPT—INPUT statement 
BNADIM—DIM statement 
BXDPRT—PRINT statement 
BXUPRT—PRINT USING statement 
BNIMAG-Image (:) statement 
BMMATA—MAT statement 
BMGETX—MAT GET statement 
BMINPT—MAT INPUT statement 
BMREAD—MAT READ statement 
BMPUTX—MAT PUT statement 
BMDPRT-MAT PRINT statement 
BMUPRT—MAT PRINT USING statement 
BTRMNT-Compiler terminator (END statement) 


Compiler Labeling Conventions 
Because disk-resident statement processors must communicate with the core-resident 
compiler, a fixed equate module ($B$EQU) has been developed to reference core-resident 
instructions and areas, In addition, the compiler common module (BZCOMN) contains 
an equate section which has been developed to assist in defining the fixed addresses in 
$BSEQU. Essentially, BZCOMN equates reference the same core addresses as $B$EQU, 
except BZCOMN addresses are derived from the assembled code while $B$EQU addresses 
are manually adjusted constants, 

Core-resident modules are coded to reference other core-resident modules, using the 
following conventions: 


e Module Entry Points. Actual entry point label. 


e Module Data/Instruction Fields. Equivalent BZCOMN label. 


Disk-resident statement processor modules are coded to reference core-+resident modules 
using the following conventions: 


e Module Entry Points. Equivalent $B$EQU label. 
e Module Data/Instruction Fields. Equivalent $B$EQU label. 
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Virtual-memory references are always specified using the appropriate $V$EQU label. 
Program descriptions use the following conventions, with respect to both core-resident 
and disk-resident modules, for consistency: 


e Module Entry Points, Actual entry point label. 


e Module Data/Instruction Fields, Equivalent $B$EQU label. 


For example: 


e Actual core-resident entry point label— BCFCON 
Referenced from core as— BCFCON 
Referenced from statement processor as—B$FCON 

e Actual core-resident data field label— BFSBKT 
Referenced from core as— BZBCKT 


Referenced from statement processor as—B$BCKT 


Compiler Initialization 

Entry: #BCOMP is loaded, at X‘0600’, via the nucleus loader function. #BCOMP is 
called directly by the RUN/STEP/TRACE keyword program (#KRUNI) or via the 
EDIT keyword program (##KEDIT). Figure 3-103 is an example of a core map with an 
8k system. 

Compiler Initiator: Functions of the compiler initiator (BGINIT) are: 


e When long precision is indicated, floating point data length and virtual-memory 
addresses are changed in the following core-resident compiler subroutines: 


BBPUTC—Virtual memory output subroutine 
BCFCON—Constant generator subroutine 
BDSYMB-—Symbol translator subroutine 
BFSCAN—Arithmetic expression PMC subroutine 


e As many sectors from #BOVLY as possible are loaded into expanded core (12k or 
16k). (The entire contents of #BOVLY can be loaded into 16k.) Entries in the 
processor address table (Figure 3-104) are modified to indicate the overlays resident 


pivee ss tdDIl 


in expanded core. 
e Set compile-time indicators (data file pointer, primary input buffer clear switch). 


e Seek to first cylinder of virtual memory. 


BGINIT exits to the compiler distributor (BHDIST) and is overlayed by disk-resident 
PMC generators during the compilation. BGINIT is not overlayed if 16k expanded core 
is present. 


Accessing PMC Generators 


The pseudo machine code (PMC) generator required to process a BASIC statement can 
be: 


1. APMC generator overlay that is not in core. 
2. APMC generator overlay that is presently in core. 
3. APMC generator that is permanently in core. 
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Nucleus 


Input Buffer 


#BOVLY 


#INSTD or 
#INLNG 


NS 


is 


Order of Execution #DPRIN 
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Figure 3-103. RUN Program Name Core Map (8k System), Example 


The compiler distributor (BHDIST) contains a processor address table (Figure 3-104). 
The type code of the current BASIC statement indexes this table and the table contains 
information necessary to access the PMC generators. 

When the required PMC generator is in core, a branch to the generator entry point is 
executed. When the required PMC generator is not in core, the appropriate disk sector 
is loaded into the transient area initially occupied by BGINIT. 

All disk-resident PMC generators reside on the same disk track in the system work 
area. The PMC generator assembly (#HBOVLY) is constructed so that each generator is 
contained within a sector boundary (every X‘0100’ bytes) where possible, Multiple 
generators may occupy the same sector, and a large generator can be segmented into 
two sectors (Figure 3-105), 
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Resolving Virtual-Memory Addresses 


As sequences of PMC instructions are being generated, situations occur where an instruc- 
tion references a line number or virtual-memory location that is currently unknown. 
When these situations occur, an instruction image with missing operand (X‘0000’) is 
generated, That is, a “hole” is temporarily left in virtual memory. 

Two tables are maintained by the compiler for resolving these virtualmemory 
addresses. Both tables have the same format except for the content of the entries. 


1, A statement address table (Figure 3-106) is created by BHDIST to relate state- 
ment line numbers to the virtual addresses of statement header pseudo instruc- 
tions (STH/IMH). An entry is made in the table prior to processing each new 
statement, 

2. A branch address table (Figure 3-107) is created by BRATAB to relate unresolved 
operands (holes in virtual memory) to line numbers or virtual-memory locations. 


Four types of unresolved virtual addresses can occur in the PMC generators. The 
unknown operand references: 


1. A line number that has been previously processed. 

2. Aline number that has not yet been processed. 

3. The next sequential statement. 

4, Another pseudo instruction that is not associated with a line number. 


These situations are discussed individually in the following paragraphs. 

When the unknown operand references a line number (STH or IMH pseudo instruction) 
that has not yet been encountered or that is already written in VM, the virtual address of 
the hole and the line number are passed as parameters to BRATAB. BRATAB creates an 
entry in the branch address table. Entries in this table are not resolved by the compiler. 
This table, along with the completed statement address table, is passed to the loader 
(#LOADR) for resolution. 
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BHDPAT 


Processor Address Table (one entry for each statement type code) 


One 3-Byte = eel 
Entry Address eel 


Notes 

1. “Entry address’' is the entry point to the PMC generator (equal to X’0600' 
plus the displacement into the sector for disk-resident generator overlays). 

2. “Sector” is the sector byte used in the DPL (Figure 5-24) when reading 


from the PMC generator track, A value of X'FF’ indicates the generator 
is core-resident. The sector byte of the sector currently in the transient 
area is saved at label BHDDSA in case the same sector is required on 


consecutive compiler cycles. 
3. The transient area where all overlay sectors are loaded is X‘O600’ to X‘OGFF’. 
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Figure 3-104. Processor Address Table 


Four Sectors 


a 


PMC Gen 2')| PMC Gen 3 | 


~Slack Bytes 


Notes 

1. PMC generator 1 is contained entirely on one sector. The unused area at the end of the 
sector is too small to contain another generator. 

2. PMC generators 2 and 3 occupy the same sector, 

3. PMC generator 4 is too large for one sector. Since only the first sector is loaded by the 


compiler distributor, generators that occupy more than one sector branch to label 
BHDST2 in the distributor, causing the distributor to load the next sector. 
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Figure 3-105, Organization of PMC Generators on Disk 


When the unknown operand references the next sequential statement (branch-to-next- 
statement), the next-address switch (BSNXSW) is set in BHDIST and the virtual address 
of the hole is saved as a parameter for BRATAB. BHDIST determines the line number 
of the next statement during normal processing and, because the switch is set, calls 
BRATAB to create an entry in the branch address table. 
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Statement Address Entry (4 bytes) 
Rie eee eee ee ee 


Statement Address Buffer (in core) (64 entries—1 sector) 


RIESE ERE eee eee 


Statement Address Table (on disk) (16 sectors) ; 


Notes: 


1. The address field contains the virtual address of the statement header instructions 
(STH or IMH) associated with the line number. 

2. Entries are always in ascending line number order, 

3. Vacant entries contain binary O's, 

4 The 16-sector disk area can contain 1024 entries but never has more than 990 
(the maximum BASIC program size). 

5. X‘FFFFFFFF' is inserted in the last (64th) entry of the last table sector before 
it is written to disk by the compiler terminator (BTRMNT). All preceding 
sectors are written by the branch table subroutine (BRATAB). 
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Figure 3-106. Statement Address Table 


When the unknown operand references another pseudo instruction in the same PMC 
sequence (statement instruction group), the virtual address of the hole and the virtual 
address of the referenced instruction are passed, as parameters to BRATAB. The virtual 
address of the referenced instruction is always determined by the PMC generator on the 
same compiler cycle (see Figure 3-108 for example). BRATAB processes the virtual 
address the same as when a line number is referenced. 

The lowest possible pseudo instruction virtual address is always greater than the highest 
possible binary line number. This is how the loader (#LOADR) differentiates between 
the two types of entries in the branch address table. 


Core Resident Routines 


Compiler Distributor—BHDIST 


BHDIST passes control to the individual pseudo machine code (PMC) generators. (Refer 
to ‘Accessing PMC Generators,””) Since each PMC generator completes processing for a 
single statement, BHDIST expects the next source text character to be the beginning of 
a new BASIC statement. The statement is scanned for the first nonnumeric character 
which should be the statement keyword. BHDIST performs this scan using BAGETC. 
The binary line number is saved for reference by the PMC generators, The statement type 
code is saved to index the processor address table (Figure 3-104). BHDIST bypasses 
disabled statements; bit 0 of the statement type code is on. A statement-header pseudo 
instruction (STH) is generated in virtual memory for each enabled statement. For image 
statements, this STH is later modified to be an image statement header (IMH). 
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Branch Address Entry (4 bytes) 
ee 


a 


Branch Address Buffer (in core) (64 entries—1 sector) 


Notes: 

1. The address field contains the virtual address of an unresolved pseudo instruction 
operand (hole). 

2. The reference field contains either a tine number or the actual virtual address to be 
inserted in the hole, 

3. Vacant entries contain binary 0's. 

4, The 16-sector disk area can contain 1024 entries. If this limit is exceeded, compilation 
is aborted. 
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Figure 3-107. Branch Address Table 


Each PMC generator, except for the compiler terminator (BTRMNT), returns to 
BHDIST to complete the statement processing cycle. Some generators return to BHDIST 
via the REM statement processor (BNRMRK). 


Statement Input Subroutine—BAGETC 


BAGETC reads blocks of packed, segmented BASIC source text from the system work 
file. Core addresses of sequential text characters within these blocks are determined. 
These disk blocks are read in a logically sequential order by following the linkage fields 
in the work file data blocks (refer to Figure 5-15). The text is always presented in 
ascending line number order, The calling routine sets parameters for BAGETC in order 
to access a character position in a text segment. 

Input parameters to BAGETC are: 


1. © B$NUMC—Character skip count. This field contains the relative displace- 
ment between accessed characters, A value of X‘FF’ accesses (skips to) the 
terminating character (EOS) of the current segment (BASIC statement). A 
value of X‘O1’ accesses the next consecutive text character. A value of X‘00’ 
returns the address of the previously accessed character and does not advance 
to a new character. This parameter defaults to X‘01’ if it is not explicitly set 
prior to entry. 

2. BS$GBSW—Bypass blanks switch. On (X‘01’) ignores blanks when advancing to a 
new character. Off processes blanks the same as other text characters. 
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Example: The PMC sequence below contains three branch instructions, two 
of which require resolution by the loader (#LOADR). The arrow at refers 
to the next sequential statement. The arrow at refers to another pseudo 
instruction not associated with a line number. The arrow at refers toa 
pseudo instruction whose virtual address is known {since it was previously 
established within the same compiler cycle) at the time when the BRA 
instruction is generated; no entry in the branch address table is required 

in this case. 


0100 LET A, B=5 STH 100 


(hole) 
0110 BRA 0000 ig 


STA VADRofA 


STF VADR of &WRK 
USF 

STA VADR of B 

STF VADR of &WRK 


USF (hole) 


BRA 0000 

STA VADR of &WRK 

STF VADR of 5 

USF 

BRA VADR 

STH 110 
BR1155 


Figure 3-108, PMC Sequence (Branch Instructions) 


Output parameters from BAGETC are: 


1. Index register @XR—Character core address. This register contains a pointer to 
the selected text character as requested by the calling routine. 

2. BSLINE—Line number. This two-byte field contains the binary line number of 
the BASIC statement currently being processed. 

3. BS$TYPE-—This one-byte field contains the statement type code from the state- 
ment currently being processed, 

4. BS$GPTR—Address of selected character. This two-byte field contains the core 
address of the selected text character, and is used as a backup for register @XR. 


Virtual Memory Output Subroutine—BBPUTC 


BBPUTC puts pseudo machine code strings of 1 to 255 bytes into sequential virtual- 
memory locations or stores 256-byte blocks of constants into sequentially descending 
virtual memory pages. BBPUTC is called to perform one of four functions: 


1. Add record—This function code is set by default. 
2, Write page—Function code equated to BSPFWP. 
3. | Add error—Function code equated to BSPFAE. 
4,  Close—Function code equated to B$PFCL. — 


Each function is performed by setting parameter BSPFNC with one of these codes. The 
add record function is performed by default unless BEPFNC is specifically set to an 
alternate code prior to the subroutine call. 
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Add Record: Single PMC instructions or sequences are loaded into consecutive locations 
in the output buffer. Full buffers are written to sequential, ascending sectors (pages) in 
virtual memory. Buffers are padded with at least one EOP pseudo instruction before 
they are written (refer to virtual memory map, Figure 7-2). The core address (BSPCAD) 
and the length minus | (BSPNBY) of the PMC string are required input parameters for 
this function. 


Write Page: One full virtual memory page is written to disk from the compiler constant 
buffer. This function is used to write data blocks containing generated constants into 
sequentially decreasing virtual memory pages beginning with the base constant address 
(see BCFCON). 


Add Error: This function is used to record compiler-generated errors, At the first execu- 
tion of this function, virtual address pointers are reset, the compiler error switch 
(BSERSW) is set, and the add-record and write-page functions are disabled. Each add- 
error function puts a three-byte error entry into virtual memory using the method 
described for the add-record function. These error entries are written over PMC 
sequences previously generated. The three-byte error entry consists of an error defini- 
tion code (message number in hexadecimal) followed by the associated BASIC statement 
line number. The error code is passed as an input parameter at label BSPERC. The line 
number is taken from area BSLINE where it is normally stored. 


Close: This function fills the PMC instruction output buffer with EOP pseudo instruc- 
tions and writes the full buffer to virtual memory as in the add-record function, closing 
compile-time PMC generation. 

The lowest page number referenced by a write-page function is compared to the page 
currently in the PMC instruction output buffer on each execution of BBPUTC. If an 
overlap occurs, compilation is aborted. 


Constant Generator Subroutine—BCFCON 


BCFCON is called to convert a BASIC source statement constant to internal format, 
put it into virtual memory, and return the virtual address of the first byte of the con- 
stant to the calling routine via label BSBCKT. The type of constant is passed as an input 
parameter via label BSCTYP. Three types of constants can be processed: 


1. Arithmetic constant—Type code set by default. 
2. Character constant—Type code equated to label BSCCON. 
3. Character string constant—Type code equated to label BSSCON. 


On entry, the index register (@XR) points to the first character of the constant in the 
statement input buffer. On exit, this register points to the first non-blank character after 
the constant. (Refer to ‘Statement Input Subroutine—-BAGETC.”) 

Each constant is generated into a 19-byte work area in a form suitable for virtual 
memory. Constants are loaded in descending order in the constant output buffer. For 
arithmetic or character constants, the constants in the current output buffer are scanned 
and duplicates are not created. No check is made for duplicates of character strings. Full 
buffers are written to contiguous, descending sectors (pages) in virtual memory (refer to 
Figure 7-2), 


Arithmetic Constants: These constants are found in algebraic expressions or data lists, 
and are converted from EBCDIC to unpacked-decimal, floating-point format in the 19- 
byte work area (Figure 3-109), They are converted to packed-decimal, floating-point 
format before they are moved to the constant output buffer. For long precision, modifi- 
cations have been made to the packing and output routines by the compiler initiator 
(BGINIT). (Refer to “Floating-Point Arithmetic.’’) 
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Example: Sign (X'Fn’ = positive, X‘Dn‘ = negative) 


12.345678901 23456 (arithmetic decimal value) 


{unpacked decimal floating point value) 


(packed decimal floating point—standard precision) 


BF 23 45 67 89 01 23 45 (packed decimal floating point—long precision) 


Refer to “Floating-Point Arithmetic” for format of these fields. 
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Figure 3-109. Conversion of an Arithmetic Constant to Unpacked Floating Point and then to 
Packed Floating Point 


Character Constants: These constants (Figure 3-110) are character strings tailored to fit 
18-byte character constant fields, and are associated with character variables or character 
array elements. The first character in the input string is a delimiter. The next single 
occurrence of this delimiter is the end of the string. Any paired occurrence of the 
delimiter character is interpreted as a single character in the string. The source character 
string is scanned, checking for delimiters and moving characters to the work area. 


Character Field (19 bytes) 


Pi Da a DE i DDE 


Character Segment (up to 18 EBCDIC characters) 


Status Byte 


Rares Bere 


10—Character Reference or Constant Associated with Reference 


11—Character Constant Segment (all or part of a character string constant) 
BR1157 


Figure 3-110, Character Field Format 


Character String Constants: These constants (Figure 3-110) are variable length and are 
not associated with character variables or character array elements. If the length of a 
string exceeds the size of the work area, more than one string segment is constructed 
and moved to the output buffer. Delimiters are processed in the same manner as for 
character constants. 
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Allocated Element 


and Length 


Arithmetic 
(letter) 
variables 


Arithmetic 
(letter-digit) 
variables 


Arithmetic 
array 
reference 


dope vector; 
8 bytes. 


Character 
variable field; 19 bytes. 
Character array 
dope vector; 

4 bytes. 


Character 
array 
reference 


User function 
(subroutine) 
virtual address 
execution entry 
point (2 bytes). 


User function 
reference 


Intrinsic 
function 
reference 


Secondary 
(delimiting) 
keyword 
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Packed floating-point 
value; 5 bytes for 
standard, or 9 bytes 
for long precision. 


Arithmetic array 


Character variable 


Symbol Translator Subroutine—BDSYMB 


BDSYMB is called to analyze all symbols encountered in BASIC statements, allocate 
space in virtual memory, and return the virtual address of the allocated space (or entry 
point of an intrinsic function) via label BSBCKT. The symbol type is analyzed as 
belonging to one of the eight categories listed in Figure 3-111. No values are written 


in virtual memory by this subroutine. 


BSSLVT 
BSSLDT 


BSSNAT 
BSSCVT 


BSSCAT 


BSSFNT 
BDSIFT 


BDSKWT 


Figure 3-111, Symbol Processing in BDSYMB 


Returned 
Virtual Address 


Virtual address of 
first byte of element. 


Entry point to VM- 
resident intrinsic 
funtion subroutine. 


Virtual address at 
label BSBCKT is not 
changed. 


Table Format 


29, 2-byte virtual addresses assigned to 
symbols $, #, @, A~Z. 


290, 2-byte virtual addresses assigned to 
($, #, @, A~Z)*(0-9) 


29, 6-byte entries. First 2 bytes contain 
virtual address assigned to symbols $, 

#, @, A-Z. Last 4 bytes contain specified 
array dimensions (two 2-byte values), 


29, 2-byte virtual addresses assigned to 
symbols $$, #$, @S, A$-Z$. 


29, 4-byte entries. First 2 bytes contain 
virtual address assigned to symbols $$, 
#$, @S, A$-Z$, Last 2 bytes contain 
specified array dimension (2-byte value), 


29, 4-byte entries, First 2 bytes contain 
virtual address assigned to functions 
FN$, FN#, FN@, FNA-FNZ., Last 2 bytes 
contain virtual address of associated DEF 
statement execution entry point, 


24, 5-byte entries containing a 3-byte 
function name and a 2-byte virtual 
address. 


Four 2-byte entries containing first 
2 bytes of each secondary keyword 
(TH, etc.). An additional check is 
made to insure that ‘ST’ is actually 
the beginning of keyword ‘STEP’. 


BR1158B 


In the following examples, the characters $, (, and FN are identifiers for the symbol A: 


A—Arithmetic (letter) variable 
Al—Arithmetic (letter-digit) variable 
A$—Character variable 
A(—Arithmetic array reference 
A$(—Character array reference 
FNA—User function 

LOG-—Intrinsic function 
THEN—Delimiting keyword 
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Symbol Tables: The BASIC language has an absolute number of usable symbols. Symbol 
tables in BDSYMB contain entries (initially binary 0’s) for every possible symbol (Figure 
3-111). A relative displacement, to the entry corresponding to a symbol, is determined 
by scanning the alphabet reference table (BDSART) for equal or low. 

The first time a symbol is referenced in a BASIC program, space for the associated 
element is allocated in virtual memory. The virtual address of the element is moved to 
the corresponding entry in one of the symbol tables, and also returned to the calling 
routine. Subsequent references to the same symbol return the virtual address from the 
table entry. 

Space in virtual memory for elements is assigned using two virtual-memory address 
pointers: 


BS$SFAB—User function addresses and array dope vectors. 
BS$SVRB—Variable elements (arithmetic and character). 


The initial value of BSSFAB is X‘0000’ and is decremented as each user function 
address or array dope vector is allocated space. The resulting virtual address references 
the first byte of the element (example: X‘0000’ - 8 = X‘FFF8’). 

The initial value of BSSVRB is X‘F536’ (X‘F049‘ for long precision) and is incre- 
mented as each variable element is allocated space. This address also points to the first 
byte of the variable element. 

The virtual-memory area aetined by the initial values of BSSVRB to B§SFAB accom- 
modates all possible elements the user can define in a single BASIC program. Any unused 
area between these addresses, at the end of compilation, is available to the loader 
(#LOADR) for the allocation of small arrays (refer to Figure 7-2). 


Intrinsic Functions: The intrinsic function table is scanned for a match to the BASIC 
name of the function. The virtual address (fixed entry point) from the table is returned 
to the calling routine. 

Input parameters to BDSYMB are: 


1. Index register (@XR)—Text character pointer. This register contains the core 
address of the first character in the identifier of the symbol to be processed. 

2. BSMRSW—Matrix reference switch. When this switch is on, references that would 
otherwise be interpreted as simple letter variables are interpreted as arithmetic 
array references. 

3. BS$FSSW—Function scan switch. When this switch is on, all arithmetic variable 
references are matched against a user-function, dummy-argument identifier. 
Matching references are assigned the dummy argument virtual address rather 
than that derived from a symbol table. 

4. B$FSC1—Function scan identifier (first character). This parameter contains the 
first character of the user-function, dummy-argument identifier during a function 
scan, 

5. BSFSC2—Function scan identifier (second character). This parameter contains the 
digit portion of the user-function, dummy-argument identifier, if present, during 
a function scan. When none exists, the value at BSFSC2 is X‘40’ (EBCDIC blank). 

6. B$FSVA—Function scan virtual address. This parameter contains the virtual 
address of a user-function-dummy-argument assigned during a function scan. 


Output parameters from BDSYMB are: 


1. Index register (@XR)—Text character pointer. If the symbol is a secondary 
keyword or a letter variable immediately followed by a delimiting keyword, 
this register points to the second character in the keyword. In all other cases, 
the register points to the character following the complete identifier. Blanks 
are ignored. 

2.  BS$BCKT—Identifies virtual address bucket. This contains the virtual address of 
the leftmost byte of the element associated with the processed identifier. 
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3. BS$ADSW—Address available switch, This switch is on when a virtual address is 
stored in BSBCKT. 

4. BS$IFSW—Intrinsic function switch. This switch is on when the symbol is an 
intrinsic function reference. 

5. B$FRSW—Function reference switch. This switch is on when the symbol is 
either a user or intrinsic function reference. 

6. | B$CRSW—Character reference switch. This switch is on if the symbol is either 
a character variable or character array reference. 

7. BS&KWSW—Expression keyword switch. This switch is on when the symbol is a 
secondary keyword (alone or following a letter variable). 

8. BS$HRSW—Matrix reference switch. This switch is on when a matrix-directly 
intrinsic function is encountered. 


Gharacter Expression PMC Subroutine—BECSCN 


BECSCN is called to generate pseudo instructions, in virtual memory, that will stack one 
of the following character expressions: 


1. Character variable—Generates a stack-character-field (STC) pseudo instruction 
(Figure 3-112). 

2. Character array element—Generates a stack-character-array-element (SC1) pseudo 
instruction preceded by a stack-arithmetic-expression-value (Figure 3-112). 

3. Character literal—Generates a stack-character-field (STC) pseudo instruction 
(Figure 3-112). 


Stack-Character- 
Expression-Field 


Stack-Character- 
Field 


Stack-Character- 
Array-Element 


Stack-Arithmetic- 


Expression-Value (see Figure 3-113) 


sci 
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Figure 3-112, Stack-Character-Expression-Field 


Input Text Pointer: Index register @XR contains the core address of the character 
preceding the first character of the character expression unless BSNUMC = 0 or switch 
BSCSSW is on. If BSNUMC = 0, the compiler input subroutine (BAGETC) is effectively 
disabled and the text pointer references the first character of the character expression. 

If switch B$CSSW is on, the arithmetic expression PMC subroutine (BFSCAN) was called 
to process the expression, and encountered a $ identifier in the expression. When switch 
BS$CSSW is on, the text pointer references the character following the $ identifier, and 
the character reference symbol virtual address is stored in BSBCKT. 
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Arithmetic Expression PMC Subroutine—BFSCAN 


BFSCAN is called to generate stack-arithmetic-expression-values, composed of value 
stacking and arithmetic pseudo instructions, in virtual memory (Figure 3-113). One 
entry to this subroutine generates all pseudo instructions necessary to stack the value 
represented by a single arithmetic expression. An arithmetic expression can be a single 
symbol, or symbols separated by arithmetic operators (+,-, *,/, t , or **). The expres- 
sion can contain signed symbols (unary - or + sign). 


Stack-Arithmetic- 
Expression-Value 


Stack-Arithmetic- 


Stack-Arithmetic- Expression-Value 


Expression-Value 


Stack-Arithmetic- 
NEG or FN1 or FCI Expression-Value 
ADD or SUB or MPY 
or DIV or PWR 


Stack-Scalar-Value Stack-Vector-Value Stack-Matrix-Value 


Stack-Arithmetic- 


ck-Arithmetic- ; 
ate Expression-Value 


STF or ENO Expression-Value 


Stack-Arithmetic- 


SF1 Expression-Value 


SF2 


Note: Stack-expression-values can be nested within a stack-expression-value. 


BR1160 


Figure 3-113, Stack-Arithmetic-Expression-Value 


The unary minus (negative) sign and its quantity must normally be enclosed in paren- 
theses (-B). If, however, the unary operator applies to the leading term of an expression, 
parentheses are unnecessary (- A means negative of A, +A means A). 

The operands in the expression can be any of the following types: 


1. Arithmetic variables. 
2. Arithmetic array elements. 
3. Arithmetic (numeric) constants, 
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Arithmetic (internal) constants. 

Intrinsic functions. 

User-defined functions. 

Subexpressions (those enclosed in parentheses). 


MOAR 


The following major work areas and tables are used in BFSCAN to process arithmetic 
expressions: 


1. Compile-time stack (BFSSTK)—This stack operates as a first-in/last-out queue. 

It has a maximum capacity of 53 two-byte entries (arithmetic operation pseudo 
instructions require two bytes, function pseudo instructions require four bytes, 
and array pseudo instructions require six bytes). 

2. Operand address bucket (BSBCKT)—The virtual address of the last encountered 
operand is saved at this location until it can be output in a pseudo instruction or 
placed in the compile-time stack. The available address switch (B$ADSW) indicates 
when this location contains a usable address. 

3, Current entry (BFSCEN)—This location holds a pseudo op-code and the priority 
of the current arithmetic operation while they are being processed. 

4. Scan routine branch table (BFSTBL)—This table contains a five-byte entry for 
each valid BASIC arithmetic expression character except letters and numbers 
(A-Z and 0-9). Each entry contains the EBCDIC character, the address of the 
routine within BFSCAN that processes the character, the hexadecimal value of 
the pseudo op-code (characters that do not generate a pseudo instruction contain 
X‘00’), and the hexadecimal value of the priority code, Refer to this table for the 
priorities of arithmetic operators. 


Priority: Pseudo instructions are generated to conform with the priority of the opera- 
tions within the arithmetic expression. BFSCAN scans the arithmetic expression, from 
left to right, one character at a time. An entry is loaded into the top of the compile- 
time stack for each operational or function/array pseudo instruction that is generated 
(Figure 3-114). 

If the priority of the current entry (BFSCEN) changes to a value lower than or equal 
to that of the last entry loaded into the stack, the stack popper (BFS160) is entered. 
This routine unloads an entry from the top of the stack, builds a pseudo instruction 
from the entry, and deletes the entry from the stack. Entries are unloaded, one at a 
time, as long as the priority of each stack entry is higher than or equal to that of the 
current entry (BFSCEN). 

All entries active in the stack, when the end of the arithmetic expression is reached, 
are unloaded by the stack popper. The virtual-memory output subroutine (BBPUTC) is 
called to move each generated pseudo instruction to the output buffer and write it into 
virtual memory. 


Input Text Pointer: Index register @XR contains the core address of the character 
preceding the first character of the arithmetic expression except when BSNUMC is set 
= 0. With BSNUMC = 0, the register contains the first character of the expression. The 
address in the register on output depends on the type of expression processed: 


1. Arithmetic expression without a delimiting keyword—The pointer references 
the first nonblank character after the expression. 
2. Arithmetic expression with a delimiting keyword—The pointer references the 
second character of the delimiting keyword. 
3. Character variable—The pointer references the character following the $ identifier. 
4. Character constant—The pointer references the leading delimiter (quote mark). 
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BFSSTK BFSPTR 


Compile-Time Stack (106 bytes) 


4-Byte Entry 
ae a ee ee ee ee ae 
Virtual Address Op Code 


2-Byte Entry 


6-Byte Entry 
a ee ee ae a ae (ee ee ee es eae 
Attribute CADDR Virtual Address Op Code 


Notes: 

1. The op code field contains the pseudo instruction operation code. 

Zi The priority field contains the priority of the current arithmetic operation. 
3. The virtual address field is present in the stack for 3-byte function or array 


pseudo instructions. This address is determined by the symbol translator 
subroutine (BDSYMB). 

4. The stack pointer (BFSPTR) contains the location of the next entry to be 
stacked, BFSPTR marks the top of the stack; BFSSTK marks the bottom of 


the stack. 
5. The attribute CADDR field contains the core address of the attribute (array 
usage flags) in an array dope vector, 


BR1161 


Figure 3-114. Entries in Compile-Time Stack 


Converting Arithmetic Expressions to Pseudo Instruction Sequences 


The logical rules for conversion are: 

1. Perform all conversions from left to right, 

2. Begin conversions at the innermost subexpression level and then proceed outward. 
“Subexpression” refers only to normal parenthetical inner expressions, and does 
not include array reference subscript expressions or function reference argument 


expressions. 

3. Convert all subscript and function argument expressions within the current sub- 
expression level, treating these as independent expressions, 

4. Convert all array and function references within the current subexpression level. 


5. | Within the current subexpression level, perform all highest-priority operations 
first, then the next highest, etc., until all operations have been completed. The 
priority of operations is, from high to low: t or **, unary - or + sign, * or /, 

- or +, The unary minus (negative of) sign and its quantity must normally be 
enclosed in parentheses (-B). If however, the unary operator applies to the leading 
term of an expression, parentheses are unnecessary (-A means negative of A, +A 
means A). 

6. The resultant pseudo instruction sequence represents an expression value in the 
next outer subexpression level. Go to number 3 to resolve the next outer subex- 
pression until all levels are resolved. 
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Example: Convert the following arithmetic expression to a pseudo instruction sequence 
(the circled numbers, such as @ , fepresent expressions developed as the operation 
progresses): 


A+(A+C(A+1,B)-B)/D(A TB) 


Step 1. Using rule 2, there are two subexpression levels. The innermost is 
(At+C(A+1,B)-B). The next outer subexpression level is Atexpression/D(ATB). 

Step 2. Using rule 3, array reference subscript A+1 is converted first. Use items 1 
through 38 in Figure 3-115 (as they apply) for these conversions, At1 is the same form 
as item 7 in Figure 3-115. Therefore, it is converted to: 


STF A 
STF 1 stack-expression-value @) 
ADD 


Step 3. Using rule 4, array reference C (expression @® »B) is converted (item 30 in 
Figure 3-115) to: , 


stack-expression-value @) 
STF B 
SF2 C( 


Step 4. Insert the resultant pseudo instructions from step 2 (shown within broken 
line) and the sequence is: 


{STF A} 
\STF 1} 
tADD_! stack-expression-value @) 
STF B 
SF2 C( 


Step 5. Using rule 5, there are two operations in the current subexpression level: 
Atexpression Q) -B. The priority of operations is, from high to low: t or **, unary ~ 
or + sign, * or /,- or +. From left to right (rule 1), convert Atexpression e) ; then 
expression (3)-B will resolve this subexpression level. Atexpression 2) is converted 
(item 17 in Figure 3-115) to: 


STFA 
stack-expression-value @) 
ADD 


Step 6. Insert the resultant pseudo instructions from step 4 (shown within broken line) 
and the sequence is: 


STF A 
(STF Al 
ISTE 1 | 
IADD { 
ISTF BI 
(SF2_ CU 
ADD 


stack-expression-value (3) 
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Step 7. Expression- B is converted (item 13 in Figure 3-115) to: 


stack-expression-value GB) 
STF B 
SUB 


Step 8. Insert the resultant pseudo instructions (shown within broken line) from 
step 6 and the sequence is: 


ISTF Bi! stack-expression-value @) 


Step 9, Resolution of this subexpression level is complete. The next higher subexpres- 
sion level is Atexpression @ /D(At B). Using rule 3, array reference subscript AT B is 
converted (item 11 in Figure 3-115) first: 


STF A : 
STF B ? stack-expression-value ©) 
PWR 


Step 10. Using rule 4, array reference D is converted (item 28 in Figure 3-115) to: 


stack-expression-value (6) 
SF1 D( 


Step 11. Insert the resultant pseudo instructions (shown within broken line) from 
step 9 and the sequence is: 


ISTF A! 


{STF B l stack-expression-value ©) 
LPWR_4 
SF1 D( 


Step 12. Using rule 5, there are two operations in this subexpression level: 
Atexpression (4) [step 8] /expression ©) (step 11). The priority of the / is higher 
than the + so convert expression ‘O) /expression (6); then Atexpression @) will 
resolve this subexpression level. Expression ® /expression ©) is converted (item 
25 in Figure 3-115) to: 


stack-expression-value G@) (step 8) 
stack-expression-value 6) (step 11) 
DIV 
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Step 13. Insert the resultant pseudo instructions (shown within broken lines) from 
step 8 and step 11, and the sequence is: 


stack-expression-value @) 


Step 14. Atexpression is converted (item 17 in Figure 3-115) to: 


STF A 
stack-expression-value @) 
ADD 


Step 15. Insert the resultant pseudo instruction (shown within broken line) from 
step 13 and the sequence is: 


stack-expression-value 


Step 16. Resolution of this subexpression level is complete. 
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expression stack-expression-value 
+expression stack-expression-value 


expression stack-expression-value 
NEG 


ATB or A**B 


expression+B stack-expression-value 


STF B 
ADD 


expression—-B stack-expression-value 
STF B 
SUB 


expression*B stack-expression-value 
STF B 
MPY 


expression/B stack-expression-value 
STF B 
DIV 


expression t B or stack-expression-value 
expression**B STF B 
PWR 


Atexpression STFA 
stack-expression-value 
ADD 


Avexpression STFA 
stack-expression-value 
SUB 


A*expression STFA 
stack-expression-value 
MPY 


A/expression STFA 
stack-expression-value 
DIV 


Aft expression or STFA 
A**expression stack-expression-value 
PWR 


BR1177.1 
Figure 3-115, Conversions of Subexpressions to Pseudo 
Instruction Sequences (Part 1 of 2) Program Organization 3-173 
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expressiontexpression 


expression~expression 


expression *expression 


expression/expression 


expression? expression or 
expression* *expression 


C(A) 


Clexpression) 


C(A,B) 


C(expression,B) 


C(A,expression) 


C(expression,expression) 


FNC(A) 


FNC(expression) 


IFN(A) 


(FN (expression) 


RND 
DET(C) 


stack-expression-value 
stack-expression-value 
ADD 


stack-expression-value 
stack-expression-value 
SUB 


stack-expression-value 
stack-expression-value 
MPY 


stack-expression-value 
stack-expression-value 
DIV 


stack-expression-value 
stack-expression-value 
PWR 


STFA 
SFi C( 


stack-expression-value 
SF1 C{ 


STFA 
STF B 
SF2 C( 


stack-expression-value 
STF B 
SF2 C( 


STFA 
stack-expression-value 
SF2 C( 


stack-expression-value 
stack-expression-value 
SF2 C( 


STFA 
FCI FNC( 


stack-expression-value 
FCI FNC( 


STFA 
FN1 IFN( 


stack-expression-value 
FN1 IFN( 


FNO RND 


Spo Cc{ 
MF1 DET 
STF &WRK 


A and B are simple scalar references or constants. 

IFN may be any intrinsic function requiring a scalar argument. 

C( is the virtual address of an array dope vector. 

FNC( is a virtual address pointing to the virtuai address of a user-defined 
function. 

IFN( and RND are virtual addresses of intrinsic functions. 

&WRK is the virtual address of a work area. 


BR1177.2 


Figure 3-115, Conversions of Subexpressions to Pseudo Instruction Sequences (Part 2 of 2) 
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Assignment List PMC Subroutine—BLISTA 


BLISTA generates stack-variable-address PMC sequences (Figure 3-116), for single 
variable references in a list, in virtual memory. Typical BASIC statements that can 
contain these lists are: 


[LET] 
READ 
INPUT 
GET 


The lists reference these types of elements: 


Arithmetic scalar variable 
Arithmetic vector element 
Arithmetic matrix element 
Character variable 
Character array element 


mnARWNne 


Stack-Variable- 
Address 


Stack-Character- 
Address 


Stack-Arithmetic- 
Address 


Stack-Scalar- 
Address 


Stack-Vector- 
Address 


Stack-Matrix- 
Address 


Stack-Field- 
Address 


Stack-Array- 
Address 


Stack-Arithmetic- 
Expression-Value 


Stack-Arithmetic- 
Expression-Value 


Stack-Arithmetic- 


Expression-Value SBi 


SA2 


Stack-Arithmetic- 
Expression-Value 


SA1 


BRi178 


Figure 3-116, Stack-Variable-Address 
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The symbol translator subroutine (BDSYMB) determines the virtual address to be 
appended to each address stacking op code. The arithmetic expression PMC subroutine 
determines the pseudo instructions for all array subscript expressions. The pseudo 
instructions are written to virtual memory by BBPUTC. 


Input Text Pointer: Index register @XR contains the core address of the first character 
in the list variable to be processed; following processing, it contains the core address of 
the first nonblank character after the variable reference. 

BSLTYP-—List reference type. This indicator is set to X‘O1’ when the list contains 
character references, and is set to X‘0O0’ when the list contains arithmetic references, 


Matrix Reference PMC Subroutine—BMATXR 


BMATXR generates stack-update-matrix-descriptor PMC sequences (Figure 3-117) for 
the processing of arithmetic array references appearing in all MAT statements. These 
PMC sequences are written to virtual memory. The array reference can be a simple array 
name or an array name redimensioned by one or two dimension expressions. 

The virtual address of the array name is determined by the symbol translator subrou- 
tine (BDSYMB); and stack-expression-values for dimension expressions, if present, are 
generated by the arithmetic expression subroutine (BFSCAN). 


. Stack-Update- 
Matrix-Descriptor 


Stack-Update- 
1 -Matrix-Descriptor 


Stack-Matrix- 
Descriptor 


Stack-Update- 
2-Matrix-Descriptor 


Stack-Arithmetic- 
Expression-Value 


Stack-Arithmetic- 
Expression-Value 


Stack-Arithmetic- 
Expression-Value 


spi SD2 
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Figure 3-117, Stack-Update-Matrix-Descrip tor 


Input Text Pointer: Index register @XR contains the core address of the character 
preceding the first character of the array reference on entry. This register contains the 
core address of the character that delimits the array reference on exit. 


Branch Table Subroutine—BRATAB 


BRATAB resolves virtual addresses for branch pseudo instructions and builds the branch 
address table (Figure 3-107). (Refer to “Resolving Virtual Memory Addresses.’’) 
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Input parameters to BRATAB are: 


1. BS$BRVA—Contains the virtual address that points to the location of the unresolved 
operand, 

2. B$BRLN—Contains a line number or actual virtual address referenced by the 
pseudo instruction with the unresolved operand. 


Disk Four-Track Logical [OCS Interface—BVDL4T 


BVDL4T is called by the statement input subroutine (BAGETC) to read blocks of source 
text from the work file and by the virtual memory output subroutine (BBPUTC) to 
write pages of PMC to virtual memory. This I/O subroutine converts relative disk 
addresses to physical disk addresses and calls DKDISK in the system nucleus to perform 
the disk I/O operation. The calling sequence, disk parameter list (DPL) format, and 
functions of BVDL4T are the same as for DL4ICS (system work file OCS). Refer to 
DL4ICS (Figure 3-70) and disk parameter list (Figure 3-3). 


PMC Statement Processors (General Specifications) 


Statements are assumed to be free of syntax errors, since they are checked and assigned 
type codes as they are entered into the system work file. Each source BASIC program 
statement is scanned, character by character, in the compiler input buffer, This buffer 
is managed by the statement input subroutine (BAGETC). Index register @XR, updated 
by all modules of the compiler, generally contains the core address of the current char- 
acter to be inspected in the input buffer, On entry to a PMC generator overlay, the 
index register normally references the first character of the statement keyword. When 
returning to the compiler distributor (BHDIST), the index register references the char- 
acter terminating the processed statement. 

Most PMC generator overlays generate a series of pseudo instructions and assign loca- 
tions for data in virtual memory. Pseudo object code sequences for each BASIC state- 
ment are stored, as generated, contiguously in a 256-byte output buffer. This buffer is 
managed by the virtual-memory output subroutine (BBPUTC), 

The pseudo instructions and/or data area assignments for the following group of BASIC 
statement syntactical units are generated by core-resident subroutines called by the PMC 
generator overlays: 


1. Constant; constant generator subroutine (BCFCON). 

2. Arithmetic-variable; symbol translator subroutine (BDSYMB). 

3.  Arithmetic-expression; arithmetic expression PMC subroutine (BFSCAN). 
4 List of variable-references (arithmetic or character); assignment list PMC 
subroutine (BLISTA). 

Character-expression; character expression PMC subroutine (BECSCN). 
Array-dimension-specification; symbol translator subroutine (BDSYMB). 
7, Array-reference; matrix reference PMC subroutine (BMATXR),. 


The core-resident subroutines call other core-resident subroutines to process lesser 
elements of the syntactical unit (example: BFSCAN calls BDSYMB to process each 
symbol in an arithmetic expression). BASIC statement syntactical units, not in the 
preceding list, are generated by the PMC generator overlays (example: branch, com- 
pare, and unstack instructions), Exceptions to this are the STH and EOP instructions. 
The statement header (STH) is generated by the compiler distributor (BHDIST). End- 
of-page (EOP) instructions are inserted by the virtual-memory output subroutine 
(BBPUTC). 


nwWm 
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A stack-basic-element (Figure 3-118) can be either a stack-arithmetic-expression-value 
or a stack-character-expression-field. Refer to Figures 3-146 and 3-148 for the stack- 
basic-element syntax used in the PRINT and PUT keyword statements. 


oe (see Figures 3-146 and 3-148) 


Stack-Character- 
Expression-Field 


Stack-Arithmetic- 
Expression-Value 


(see Figure 3-113) (see Figure 3-112) 
BR1180 


Figure 3-118, Stack-Basic-Element 
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#BCOMP 


BGINIT 
INITIALIZE BASIC COMPILER 


. Set input buffer clear switch (SCLBFR) on. 
2. Initialize data pointer in $INLNO. 
3. Set core-resident routines for long precision 

if required. 
4. Coreload ail possible statement processors and 
adjust distributor table if $EXFTR # 0. 


BHDIST 


ACCESS NEXT STATEMENT AND SET UP 
PROCESSING 


1. Use BAGETC to get statement type code. 
Access first character of keyword in work file. 

2. Process special conditions: @ Truncated statement 

e REM or deactivated 

statement 


BHD400 


3, Use BBPUTC to generate STH in virtual memory for PROCESS TRUNCATED STATEMENT CONDITION 
current statement. 
4. Aenea address table entry for current 1, Use BBPUTC to output error code to virtual memory 
5. Select statement processor using current statement in pists. of pseudo maching code: 
type code. 
6. Coreload statement processor if not already in core. 
7. Branch to execute selected statement processor. 


BNRMRK 


BYPASS BASIC STATEMENT TO EOS CHARACTER 


1, Use BAGETC to get statement characters from 
work file until EOS is found. 


C) 


Figure 3-119, Compiler (#BCOMP) Flowchart (Part 1 of 2) 
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-CLOSE BXCLOS 


DATA : BNDATA 
DEF BNFDEF 
DIM BNADIM 
FOR BKFORX 
GET BXGETX 
GOSUB BKSUBG 
GOTO (Simple) BKGOTO 
GOTO (Multiple) BKMGTO 
IF (Arithmetic) BKARIF 

\F (Character) BKCRIF 

IF (Character, String) BSTRIF 

Image (:) BNIMAG 


PAN PUNT =e 2 oe BIN 

P LET (Character) CC BPCLET 
LET (Character, String) BSTRLT 

MAT GET ce 
MAT INPUT BMINPT 
MAT PRINT BMDPRT 


MAT PRINT USING ; BMUPRT 
MAT PUT BMPUTX 
MAT READ BMREAD 
NEXT BKNEXT 
PAUSE BTPAUS 
PRINT BXDPRT 
PRINT USING BXUPRT 
BXPUTX 
READ BPREAD 
RESET BXRSET 
RESTORE BPXRSR 

RETURN BKRTRN 
STOP BTSTOP 

END (or EOF 


vu 
Cc 


BTRMNT 


TERMINATE COMPILER PMC GENERATION PHASE SCAN BASIC STATEMENT TO EOS CHARACTER 


. If any compiler-generated errors in virtual memory, 1. Use BAGETC to get statement characters from ~ 
coreload error codes and exit to $CAERK to load work file. 
#ERRPG. Use BBPUTC to output generated PMC to 


virtual memory. 


If incomplete FOR loop or virtual memory capacity 
Use BCFCON to generate and output constants 


exceeded, exit to $CAERK to load #ERRPG. 
Close PMC output to virtual memory. to virtual memory. 
Output residual constants to virtual memory. Use BDSYMB to create variable symbol addresses, 


2 

3 

4, 

Output residual branch table entries to disk. 5. Use BECSCN to generate PMC for character 

Output residual statement table entries to disk. expression, 

Establish parameters and symbol tables in core 6. Use BFSCAN to generate PMC for arithmetic 

transfer area for use by #LOADR. expression. 

Exit to $RLOAD to load and execute #LOADR. 7. Use BLISTA to generate PMC for assignment list. 

8, Use BMATXR to generate PMC for matrix 
references, 

9. Use BRATAB to add unresolved addresses to 
branch table, 

10. Use BUZDBN for decimal to binary conversion, 

11. Use BVDLA4T as logical interface to disk lOCS, 

12, Use BBPUTC to output error codes to virtual 
memory rather than PMC when minor compiler 
error occurs, 

13. Exit to $CAERK to load #ERRPG if virtual 

memory or branch table capacity is exceeded. 


9 NOTAW N 


#LOADR 
Figure 3-161 


PMC=pseudo machine code 


Figure 3-119, Compiler (4BCOMP) Flowchart (Part 2 of 2) 
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Pseudo Instruction Sequences 

Pseudo instruction sequences are detailed in Figures 3-120 through 3-154, These figures 
are in alphabetical order by BASIC statement keyword. As illustrated in the figures, a 
syntactical unit of PMC (pseudo machine code) is normally generated for each syntactical 
unit of the BASIC statement. 


Input to BXCLOS Output from BXCLOS 
(BASIC Statement Syntax} Syntax of PMC Sequences PMC Mnemonics 


statement-header STH 
‘filename’ \ stack-character-field STC 


character-variable perform-file-activation ADF 


CLOSE { 
close-file CLS 


[stack-character-field (STC 


J) ‘filename’ R 2 ns 
- aed perform-file-activation ADF 
+ (character-variable ‘ 
close-file] ... CLS]... 


Note: When ‘filename’ has not been defined (cannot be located in compile filename table), no ADF/CLS sequence 
is generated for that file reference, 


‘BR1182A 


Figure 3-120. CLOSE PMC Syntax 


Output from BNDATA 
Syntax of PMC Sequences PMC Mnemonics 


DATA constant statement-header STH 
branch-next-statement BRA 
define-constant-address DCA 


BR1183 


Input to BNDATA 
(BASIC Statement Syntax) 


Figure 3-121. DATA PMC Syntax 


Input to BNFDEF Output from BNFDEF 


(BASIC Statement Syntax} Syntax of PMC Sequences PMC Mnemonics 
STH 


DEF user-function statement-header 
branch-next-statement BRA 
branch-return-address BRA 


(arithmetic-variable} (packed-floating-parameter-area) 


= arithmetic-expression stack-arithmetic-expressijon-value (see Figure 3-113) 
branch-and-delete-function-entry BRD 


BR1184 


Figure 3-122, DEF PMC Syntax 
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input to BNADIM Output from BNADIM 


t 
(Peele Stetmenesy nan Syntax of PMC Sequences PMC Mnemonics 
STH 


DIM array-dimension-specification statement-header 
array-dope-vectors 
{,array-dimension-specification]... [array-dope-vectors]... 
No pseudo machine instructions, except a statement-header, are generated for the DIM statement, 
Refer to Figures 3-156 and 3-157 for descriptions of array dope vectors. Partial) array dope vector Images 


remain core-resident during compilation and are tagged or filled as the array is referenced during execution 
of the BASIC program. Completed dope vectors are stored jn virtual memory by #LOADR, 


BR1185 


Figure 3-123, DIM PMC Syntax 


Input to BTRMNT Output from BTRMNT 
Ss t 
(BASIC Statement Syntax} Syntax of PMC Sequences PMC Mnemonics 


END [comment] statement-header STH 
cal]-supervisor 
define-program-end 


Note: End of work file (condition) generates the same sequence. 
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Figure 3-124, END PMC Syntax 


Input to BKFORX Output from BKFORX 
[BASIC Starement Syntax) Syntax of PMC Sequences PMC Mnemonics f 
H 


FOR arithmetic-variable statement-header 


= arithmetic-expression ; stack-arithmetic-expression-value (see Figure 3-113) 
TO arithmetic-expression stack-arithmetic-expression-value (see Figure 3-113) 


[STEP arithmetic-expression] stack-arithmetic-expression-value (see Figure 3-113) 


initialize-for-loop FOR 
perform-next-step NXT 
define-work-area DWA 
(unpacked-floating-parameter-area) (see note) 


Note: Each unpacked-floating-point-parameter-area is 8 bytes in length for standard precision and 16 bytes in 
length for long precision. 


BR1187 


Figure 3-125, FOR PMC Syntax 
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pp ee SSS SSS SS SSS SS Eee 


Input to BXGETX Output from BXGETX 


(BASIC Statement Syntax) Syntax of PMC Sequences PMC Mnemonics 


GET { filename 


stack-character-field 


perform-file-activation 


statement-header 
Teen ail, 


wariable reference , stack-variable-address (see Figure 3-116) 
get-file-element GET 


[variable reference]... [stack-variable-address [(see Figure 3-116) 
get-file-element], .. GET]... 


Figure 3-126. GET PMC Syntax 


Input to BKSUBG Output from BKSUBG 
IB}SIe Ptarementoyntan! Syntax of PMC Sequence PMC Mnemonics 


GOSUB line-number statement-header 
F stack-return-address 
branch-unconditionally ea 


Figure 3-127, GOSUB PMC Syntax 


Input to BKMGTO Output from BKMGTO 


HBAS C Statement syntax! Syntax of PMC Sequences PMC Mnemonics 


GOTO line-number statement-header STH 
stack-bypass-address STA 
stack-line-address STA 


(,line-number].., [stack-line-address] , 


ON arithmetic-expression stack-arithmetic-expression-value (see Figure 3-113) 
compute-stacked-address CSA 
branch-stacked-address BRS 


Figure 3-128, GOTO (Multiple) PMC Syntax 


Output from BKGOTO 
Syntax of PMC Sequence PMC Mnemonics 


GOTO line-number . statement-header 
: branch-unconditionally can 


Figure 3-129, GOTO (Simple) PMC Syntax 


Input to BKGOTO 
(BASIC Statement Syntax) 
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Input to BKARIF Output from BKARIF 


(BASIC Statement Syntax) Syntax of PMC Sequences PMC Mnemonics : 


IF arithmetic-expression statement-header STH 
stack-arithmetic-expression-value (see Figure 3-113) 


relational-operator stack-arithmetic-expression-value (see Figure 3-113) 
arithmetic-expression compare-stacked-values CMF 


THEN |. - 


Figure 3-130, IF (Arithmetic) PMC Syntax 


Input to BKCRIF Output from BKCRIF 


(BASIC Statement Syntax) Syntax of PMC Sequences PMC Mnemonics 


IF character-expression statement-header STH 
stack-character-expression-field (see Figure 3-112) 


relational-operator stack-character-expression-field (see Figure 3-112) 
character-expression compare-stacked-val ues CMC 


THEN |. . 


Figure 3-131. IF (Character) PMC Syntax 


Input to BSTRIF Output from BSTRIF 


(BASIC Statement Syntax) : : 
Syntax of PMC Sequences PMC Mnemonics 


IF character-expression statement-header STH 
stack-character-expression-field (see Figure 3-112) 
[stack-arithmetic-expression-value [STF 
stack-arithmetic-expression-value STF 
function-call-no-argument] FNO] 


relational-operator stack-character-expression-field (see Figure 3-112) 
[stack-arithmetic-ex pression-value [STF 

character-expression stack-character-expression-value STF 
function-call-no-argument] FNO] 
compare-stacked-values CMC 


THEN ‘ ae 
1 a line-number branch-on-condition 


Figure 3-131.1. IF (Character, String) PMC Syntax 


3-184 
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Input to BNIMAG Output from BNIMAG 
(BASIC Statement Syntax) 


statement-header 
branch-next-statement 


{character-string 
or 
print-image]... set-print-image 
branch-stacked-address 


Note: Set-print-image is either a set-null-image (PRU) or a sequence of the following form: 


stack-character-field (STC) 
set-initial-image (PRU) 
[stack-character-field (STC 
set-image-field] .. . PRU]... 


Iigure 3-132, IMAGE (:) PMC Syntax 


Input to BXINPT 
(BASIC Statement Syntax) 


INPUT variable-reference statement-header 
stack-return-address 
branch-unconditionally 
stack-variable-address 
input-data-element 


[stack-variable-address 
input-data-element],.. 
branch-next-statement 
stack-execution-code 


) [,variable-reference],.. 


[stack-execution-code]... 


initiate-data-input 
branch-stacked-address 


Vigure 3-133, INPUT PMC Syntax 


Input to BPMLET 
(BASIC Statement Syntax) 


[LET] arithmetic-reference | statement-header 
branch-unconditionally 
stack-arithmetic-address 
stack-scalar-value 
unstack-scalar-value 


[stack-arith metic-address 
stack-scalar-value 
unstack-scalar-value]... 


{,arithmetic-reference] .., 
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Syntax of PMC Sequences PMC Mnemonics 


Output from BPMLET 


Syntax of PMC Sequences PMC Mnemonics 


(see note) 
BRS 


Output from BXINPT 


Syntax of PMC Sequences PMC Mnemonics 


STH 
STA 
BRA 
(see Figure 3-116) 
GET 


[{see Figure 3-116} 
GET}... 

BRA 

STX 

(STX]... 

INt 

BRS 


STH 
BRA 
(see Figure 3-116) 
STF 
USF 


[(see Figure 3-116) 
STF 
USF]... 


branch-to-next-statement 
stack-scalar-address 
stack-expression-value 

un stack-expression-value 
branch-unconditionaily 


= arithmetic-expression 


Figure 3-134, LET (Arithmetic, Multiple) PMC Syntax 
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BRA 
STA 
(see Figure 3-113) 
USF 
BRA 
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Input to BPALET 
(BASIC Statement Syntax) 


[LET] arithmetic-reference 


= arithmetic-expression 


statement-header 
stack-arithmetic-address 


stack-arithmetic-expression-value 


unstack -arithmetic-expression-value 


Figure 3-135, LET (Arithmetic, Simple) PMC Syntax 


Input to BPCLET 
(BASIC Statement Syntax) © 


[LET] character-reference 


Syntax of PMC Sequences 
statement-header 
stack-character-address 


Output from BPALET 
Syntax of PMC Sequences PMC Mnemonics 


STH 
(see Figure 3-116) 


(see Figure 3-113) 
USF 


Output from BPCLET 


PMC Mnemonics 


STH 
(see Figure 3-116) 


[,character-reference]... 


[stack-character-address] . . . 


[(see Figure 3-116)]... 


= character-expression 


stack-character-expression-field 
unstack -character-expression-field 


Figure 3-136, LET (Character) PMC Syntax 


Input to BSTRLT 
(BASIC Statement Syntax) 


character-reference 
(LET] 
string-function 


character-reference 


string-function 


= character-expression 


statement-header 
branch-unconditionally 
stack-character-address 
[stack-character-expression-field 
stack-arithmetic-expression-value 
stack-arith metic-expression-value]} 
stack-character-field 
[function-call-no-argument] 
unstack-character-elements 


stack-character-address 
[stack-character-expression-field 
stack-arith metic-expression-value 
stack-arithmetic-expression-value] 
stack-character-field 
[function-call-no-argument] 
unstack-character-elements 


branch-to-next-statement 
stack-character-address 
stack-character-expression-field 
[stack-arithmetic-ex pression-value 
stack-arithmetic-expression-value 
function-call-no-argument] 
unstack-character-elements 
branch-unconditionally 


Figure 3-136.1. LET (Character, Multiple, String) PMC Syntax 


3-184,2 
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(see Figure 3-112) 
USC 


Output from BSMLET 
Syntax of PMC Sequences PMC Mnemonics 


STH 

BRA 

(see Figure 3-116) 
[(see Figure 3-112) 
STF 

STF] 

STC 

{FNO] 

USC 


(see Figure 3-116) 
[(see Figure 3-112) 
STF 

STF] 

sTc 

[FNO] 

USC 


BRA 

STA 

(see Figure 3-112) 
[STF 

STF 

FNO] 

USC 

BRA 
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Input to BAMATA 


matrix-name Output from BMMATA 


matrix-expression : 
4 Syntax of PMC Sequences PMC Mnemonics 
MAT Statement Example 


MATC=A+B statement-header 
: stack-matrix-descriptor 
stack-matrix-descriptor 
stack-matrix-descriptor 
perform-3-matrix-function 


MAT C= INV(M) statement-header 
stack-matrix-descriptor 
stack-matrix-descriptor 
perform-2-matrix-function 


MAT matrix-name = 


MAT C = CON(10) statement-header STH 
stack-arithmetic-expression-value (see Figure 3-113) 
stack-update-1-matrix-descriptor (see Figure 3-117) 
perform-1 -matrix-function MF1 


MAT C= (E1)*M statement-header STH 
stack-matrix-descriptor SDO 
stack-arithmetic-expression-value (see Figure 3-113) 
stack-matrix-descriptor SDOo 
perform-scalar-matrix-muitiply MSM 


Figure 3-137. MAT PMC Syntax 
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Input to BMGETX Output from BMGETX 


t 
eee en Syntax} Syntax of PMC Sequences PMC Mnemonics 


Red he of te statement-header STH 
filename \ 


‘ stack-character-field STC 
character-variable 


perform-file-activation ADF 


MAT GET { 


jarray-reference stack-update-matrix-descriptor : (see Figure 3-117) 
: perform-get-matrix-function MF1 - 


[array reference]... [stack-update-matrix-descriptor [(see Figure 3-117) 
perform-get-matrix-function]... MF1]... 


Vigure 3-138. MAT GET PMC Syntax 


Input to BMINPT Output from BMINPT 


BASIC Statement Synt 
voran) Syntax of PMC Sequences PMC Mnemonics 


MAT INPUT array-reference statement-header STH 
stack-update-matrix-descriptor (see Figure 3-117) 
perform-input-matrix-function MF1 


{array reference},.. [stack-update-matrix-descriptor {{see Figure 3-117) 
perform-input-matrix-function]... MF1]... 


Figure 3-139. MAT INPUT PMC Syntax 
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Input to BMDPRT Output from BMDPRT 
(BASIC Statement Syntax) Syntax of PMC Sequences PMC Mnemonics _ 
STH 


MAT PRINT matrix-name statement-header 
stack-matrix-descriptor 
perform-print-matrix-unformatted 


matrix-namef... [stack-matrix-descriptor 
; 7 perform-print-matrix-unformatted] ... 


Figure 3-140, MAT PRINT PMC Syntax 


Output from BMUPRT 
Syntax of PMC Sequences : PMC Mnemonics 
STH 


statement-header 
stack-return-address STA 
branch-set-image 


Input to BMUPRT 
(BASIC Statement Syntax) 


MAT PRINT USING Jine-number 


sMatrix-name stack-matrix-descriptor 


perform-print-matrix-formatted 


[,matrix-name}... [stack-matrix-descriptor 


perform-print-matrix-formatted]... 


Figure 3-141, MAT PRINT USING PMC Syntax 
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Output from BMPUTX 


Syntax of PMC Sequences PMC Mnemonics 
STH 


statement-header 
stack-character-field 
perform-file-activation 


Input to BMPUTX 
{BASIC Statement Syntax) 


MAT PUT filename 
character-variable 


stack-matrix-descriptor 
perform-put-matrix-function 


varray reference 


[array reference]... 


Figure 3-142, MAT PUT PMC Syntax 


Input to BMREAD Output from BMREAD 
(BASIC Statement Syntax) Syntax of PMC Sequences PMC Mnemonics 


[stack-matrix-descriptor 
perform-put-matrix-function]... 


MAT READ array-reference statement-header STH 


stack-update-matrix-descriptor (see Figure 3-117) 
perform-read-matrix-function MF1 


[,array-reference]... (stack-update-matrix-descriptor [(see Figure 3-117) 
perform-read-matrix-function]... MF1]... 


Figure 3-143. MAT READ PMC Syntax 


Input to BKNEXT : Output from BKNEXT 
IBASIG Statement Syitex} Syntax of PMC Sequence PMC Mnemonics 


NEXT arithmetic-variable statement-header 
‘ branch-unconditionally a 


Figure 3-144, NEXT PMC Syntax 


Input to BTPAUS Output from BTPAUS 
(BASIC Statement Syntax) Syntax of PMC Sequence PMC Mnemonics 


PAUSE [comment] statement-header STH 
halt-execution HLT 


Figure 3-145, PAUSE PMC Syntax 
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Output from BXDPRT 


Syntax of PMC Sequences PMC Mnemonics 
PRINT [print-references] ... statement-header STH 
print-unformatted, , . (see note) 


Note: Print-unformatted is either a position-carrier (PRS) or a print-position-carrier (PRS) preceded by a stack- 
basic-element (Figure 3-118). 


Input to BKDPRT 
(BASIC Statement Syntax) 


BR1208 


Figure 3-146, PRINT PMC Syntax 


Input to BKUPRT Output from BXUPRT 
SEAS Gr Statement SYIEX! Syntax of PMC Sequences PMC Mnemonics 


PRINT USING fine-number statement-header STH 
stack-return-address STA 
branch-set-image BNX 


print-image-only PRU (see Note 1) 


,scalar-reference print-formatted STC 

PRU (see Note 2) 
[,scalar-reference].., [print-formatted],,. (STC 

PRU]... 


Notes: 


1. This instruction is not generated when at least one scalar-reference is specified. 
2, These instructions are generated only when at least one scalar-reference is specified. 


BR1209 


Figure 3-147, PRINT USING PMC Syntax 


Input to BXPUTX Output from BXPUTX 


{BASIC Statsment-syntax) Syntax of PMC Sequences PMC Mnemonics 


‘filename’ statement-header 
PUT ; i stack-character-field 
character-variable 


perform-file-activation 


,scalar-reference stack-basic-element (see Figure 3-118) 
put-file-element PUT 


[,scalar-reference]... {stack-basic-element [(see Figure 3-118) 
put-file-element] ... PUT)... 


BR1210A 


Figure 3-148, PUT PMC Syntax 
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Input to BPREAD Output from BPREAD 


(BASIC etme iRoyaan! Syntax of PMC Sequences PMC Mnemonics 


statement-header 


variable-reference stack-variable-address (see Figure 3-116) 
read-data-element GET 


[ variable-reference] ... (stack-variable-address [(see Figure 3-116) 
read-data-element]... GET]... 


BR1i211 


Figure 3-149, READ PMC Syntax 


Input to BNRMRK Output from BNRMRK 


ti t 
(BASIC Statement Syntax) Syntax of PMC Sequence PMC Mnemonics 
Ee a 


BR1212 


Figure 3-150, REM PMC Syntax 


Output from BXRSET 
Input to BXRSET 
(BASIC Statement Syntax) Syntax of PMC Sequences PMC Mnemonics 
TH 


statement-header s 
‘filename’ stack-character-field STC ; 
RESET F : pels 
character-variable perform-file-activation ADF 
reset-file-pointer RST 


{stack-character-field 


character-variable 


‘filename’ . ates 
: elisa perform-file-activation 


reset-file-pointer]... 


Note: When ‘filename’ has not been defined (cannot be located in compile filename table), no ADF-RST 
sequence is generated for that file reference, 


BR12134 
Figure 3-151, RESET PMC Syntax 


Output from BPXRSR 
Syntax of PMC Sequence PMC Mnemonics 


RESTORE [comment] statement-header 
restore-data-pointer ae 


BRi214 


Input to BPXRSR 
(BASIC Statement Syntax) 


Figure 3-152, RESTORE PMC Syntax 
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Output from BKRTRN 


Input to BKRTRN 
(BASIC Statement Syntax) 


Syntax of PMC Sequence PMC Mnemonics 


RETURN {comment] statement-header STH 
branch-stacked-address BRS 
Note: The last executed GOSUB stacked the address operated on by BRS. 


BR1215 


Figure 3-153. RETURN PMC Syntax 


Input to BTSTOP Output from BTSTOP 
(BASIC Statement Syntax) Syntax of PMC Sequence PMC Mnemonics 


STOP [comment] statement-header STH 
calJ-supervisor SVC 


BR1216 


Figure 3-154, STOP PMC Syntax 


Compiler Termination 


Compiler Terminator-BTRMNT: The compiler overlay is called by the compiler dis- 
tributor (BHDIST) when an END statement or a work file end-of-file record is processed, 
Functions performed by the compiler terminator are: 


1. Generate the PMC sequence for the END statement (Figure 3-124). 
Write the last page of pseudo instructions to virtual memory by calling BBPUTC 
(CLOSE function). 

3. Write the last page of constants to virtual memory by calling BBPUTC (WRITE 
PAGE function). 

4. Write the last statement address table and branch address table buffers to disk. 

Build the common parameter area (Figure 3-155) in high-core. 

6. Load and exit to the loader (#LOADR) if nothing occurred to abort execution 
of the BASIC program. 


The following error conditions abort execution of the BASIC program and call the 
error program (#ERRPG) via $CAERK in the system nucleus: 


1. __ BASIC program errors have been detected by the compiler. Switch BSERSW is on, 
and the errors are recorded beginning in the first pseudo instruction page of virtual 
memory. This page and the two pages following are read into core at X’1C00’, the 
location of the error stack for the error program (#ERRPG). These pages contain 
up to 255 stacked error records, 

2. The capacity of the branch address table file on disk is exceeded. 

3. The FOR loop table contains an unresolved entry (a FOR statement was not 
paired with a matching NEXT statement). 


WN 
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Core Address 
of Leftmost 
Parameter Byte 


Decimal 


Length Loader Input Parameters 


Starting virtual address for the allocation of arrays 
(equal to the last pseudo instruction page + 1). 


Last virtual address available in the first area for the 
allocation of arrays (equal to the last, or lowest, page 
constants), 


First virtual address available in the second area for the 
allocation of arrays (equal to the last page of variables +1), 


Ending virtual address for the alloca*ion of arrays (equal 
to the last, or lowest, page containing array dope vectors), 


Starting virtual address of the internal constants. 


Starting virtual address of the internal variables. 


Arithmetic (letter) variable symbol table (from label 
BS$SLVT). 


Arithmetic (letter-digit) variable symbol table (from 
label BSSLDT). 


Character variable symbol table (from label BSSCVT). 
Arithmetic array symbol table (from label BSSNAT). 
Character array symbol table (from label B$SCAT). 
User function symbol table (from label BSSFNT). 


Array dope vector images and user function entry 
addresses. This area contains all array descriptors 
defined in the program, including dimensions specified 
in DIM statements and tags to define the arithmetic 
arrays as vector or matrix arrays. This area also includes 
virtual address entry points for all functions defined 
with a DEF statement, 


Last address occupied by the loader parameters. 


Notes: 


1; For clarification of the areas for the allocation of arrays, refer to the 
virtual memory map (Figure 7-2). 
Ze Symbol tables and array dope vectors are generated in the symbol translation 


subroutine (BDSYMB), Refer to symbol processing in BDSYMB (Figure 3-111). 


BR1217 


Figure 3-155, Compiler/Loader Common Parameter Area 
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ee 


LOADER-—SECOND PHASE OF COMPILATION—#LOADR (Figure 3-161) 
#LOADR is called by the compiler terminator (BTRMNT), via $RLOAD in the system 
nucleus, upon completion of the first phase of the compilation. The loader performs the 
following functions in preparation for execution of the BASIC program: 


Allocation of arrays in virtual memory 

Allocation of data file buffers in virtual memory 

Initialization of elements in virtual memory 

Resolution of all entries in the branch address table 

Loading of VM-resident execution subroutines of the specified precision 
Loading the interpreter to begin execution of the BASIC program 


ANEW E 


The assembly of #LOADR contains these major source modules: 


LALLOC—Allocate arrays 

LDFILE—Allocate data file buffers 
LVINIT—Initialize elements 
LRADDR—Resolve branch address table 
LSORTA—Sort branch address table subroutine 
DL2ICS—Disk logical IOCS, Figure 3-70 
DL4ICS—System work area IOCS, Figure 3-70 


The loader references parameters and tables accumulated by the compiler to perform 
the functions described in the following paragraphs. The loader does not access any of 
the source information in the work file (BASIC statements). The following list of figure 
references will aid in determining the input to, and output from, this phase of the compile: 


Compiler/loader common parameter area, Figure 3-155 
Virtual memory map, Figure 7-2 

RUN program name core map, Figure 3-102 
Arithmetic array dope vector, Figure 3-156 

Character array dope vector, Figure 3-157 

Symbol tables in BDSYMB, Figure 3-111 

Directory-1 (work file I/O record), Figure 5-17 
Directory-2, Figure 5-20 


OPN DAARWNe 


Allocation of Arrays in Virtual Memory—LALLOC 


LALLOC allocates all arithmetic and character arrays, specified by entries in the respec- 
tive array symbol tables, into the remaining available pages of virtual memory. Reference 
is made to the following parameters in the common parameter area (Figure 3-155): 


1. The first four parameters define the two areas available for the allocation of 
arrays. These parameters are updated, as arrays are allocated, so that they 
always reflect the limits of the remaining available area. 

2. The arithmetic array symbol table contains a pointer to an array dope vector | 
image, also in the common area, for each arithmetic matrix or vector array to 
be allocated, The array dope vector defines the type and size of the array. 

3. The character array symbol table contains a pointer to an array dope vector 
image, also in common area, for each character array to be allocated. The 
character array dope vector defines the size of the array. 


Default values are used if the array dope vector is flagged as undefined. All fields of the 
array dope vectors are completed in the common parameter area and that portion of the 
area is written to virtual memory after all arrays are allocated. 

The length of each element in the array is: 


1, 5 bytes for arithmetic arrays for standard precision 
2. 9 bytes for arithmetic arrays for long precision 
3. 19 bytes for character arrays 
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BSSNAT 


Arithmetic Array Symbol Table (29 six-byte entries, one assigned to each symbol) 


Notes: 


Arithmetic Array Dope Vector Image in Common Parame 


ter Area 
eo 4} SE SHH EH 
yr ESCCtSSC~*~rSC“<«*‘éRCOCS*C*dt;C*‘éROOOTSC*d 


Arithmetic a Dope Vector as Written in Virtual Memory at VADR 
ee ee ane aera eee eee Een 


VADR— The virtual address of the space allocated by virtual memory for the array dope vector assigned to this 


F— 


symbol, Until the symbol is referenced at compile-time (arithmetic array reference of DIM statement), 
this field contains binary 0’s. 
Array usage flags (bits 0 and 1), 
00—Array undefined. 
10—Vector usage; one dimension; field D1 contains binary 0's. 

Field D2 contains either a specified or a default single dimension. 
11~Matrix usage; two dimensions; both fields D1 and D2 contain a specified or a default dimension, 
First Dimension, This field defaults to a value of 10 when dimensions of a matrix array are not defined. 
Second Dimension. This field defaults to a value of 10 when dimension(s) of a matrix array are not defined. 
Total number of elements in this array. This field defaults, to a value of 10 for vector usage or 100 for 
matrix usage, when the dimension(s) of the array are not defined. 
Base virtual address for this array. This address is assigned by the loader (#LOADR). The first element in 
the array is located at base plus 5 bytes (9 bytes for long precision). 


BR1218 


Figure 3-156, Arithmetic Array Dope Vector 


Allocation of Data File Buffers in Virtual Memory—LDFILE 


LDFILE reads the first sector of file directory 1 into storage and determines if there is 
a second sector. If file directory 1 is two sectors long, virtual memory space is allocated 
for the second sector. The first four parameters of the common parameter area define 
the available pages in virtual memory. 

LDFILE must be able to allocate at least one page for each card and disk file refer- 
enced in the BASIC program or execution of the program is aborted. The buffers are 
allocated from the remaining available pages defined by the first four parameters of the 
common parameter area. One page is allocated for each card file and the remaining 
pages are divided equally among the disk files, if specified, to a maximum of eight pages 
for each disk file. 

The files are defined in file directory 1 (work file I/O record). The device type code in 
each entry in file directory 1 is checked and file directory 2 is created as the buffers are 
allocated, File directory 1 and file directory 2 are stored in virtual memory. 


Initialization of Elements in Virtual Memory—LVINIT 


LVINIT scans the following tables in the common parameter area and initializes each item 
that is referenced: 


i. Arithmetic array symbol table 
2. Character array symbol table 
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3. Character variable symbol table 
4. Arithmetic (letter) variable symbol table 
5. Arithmetic (letter-digit) variable symbol table 


BS$SCAT 


Character Array Symbol Table (29 four-byte entries, 
oné assigned to each symbol) 
One Table Entry 


Character Array te Vector Image 
in the Common Parameter Area 


Character Array Dope Vector as 
Written in Virtual Memory at ia 
or eee 


Notes: 


VADR— The virtual address of the space allocated in virtual memory for the 
array dope vector assigned to this symbol. Until the symbol is 
referenced (character array reference or DIM statement), this field 
contains binary 0's. 

F— Array usage flag (bit 0). 

Di—- Dimension; number of character elements in the array, Only single 
dimension references (vector) are valid. This field defaults to a value 
of 10 when the dimension of a character array is not defined. 

Base— Base virtual address of the array. This address is assigned by the loader 
(#LOADR), The first character element in this array is located at base 
plus 19 bytes. 


BR1219 


Figure 3-157. Character Array Dope Vector 


Trace Mode: A trace reference list (256 bytes) contains an image of the input parameters 
from the TRACE keyword statement. This list is passed against each symbol table listed 
above. Bits are-set in an internal trace table (Figure 3-158) for symbols to be traced, if the 
symbol is referenced in its corresponding symbol table. The internal trace table is used to 
set trace bits (X‘80” in the first byte) as the elements to be traced are initialized, 


Initializing Elements: A\l arithmetic elements (including each array element) are initial- 
ized to a value of 0" 98(x‘00 00 00 00 1E” in short precision). (Refer to “Floating-Point 
Arithmetic” for the format of an arithmetic element in virtual memory.) All character 
elements are initialized to blanks (X‘40’). (Refer to Figure 3-110 for the format of a 
character field in virtual memory.) 
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Trace Table (29 two-byte entries assigned to symbols 
$, #, @, A-Z in that order) 


One Two-Byte Entry 


X‘8000’ 
X’4000' 
X‘2000’ 
‘1000’ 
X‘0800" 
X‘0400’ 
X‘0200’ 
X’0100’ 
X‘0080' 
X‘0040’ 
X’0020' 
X‘0010' 
X‘0008' 
X'0004’ 
X‘0002' 
X‘0001' Character array element* 


* Trace reference list is rescanned to determine 
individual elements to be traced. 


BR1220 


Arithmetic (letter-digit) variable (digit = 0) 


Arithmetic (letter-digit) variable (digit = 1) 


Arithmetic (letter-digit) variable (digit = 2) 
Arithmetic (letter-digit) variable (digit = 3) 
Arithmetic (tetter-digit) variable (digit = 4) 
Arithmetic (letter-digit) variable (digit = 5) 
Arithmetic (letter-digit) variable (digit = 6) 


Arithmetic (letter-digit) variable (digit = 7) 


Arithmetic (letter-digit) variable (digit = 8) 


Arithmetic (letter-digit) variable (digit = 9) 


Arithmetic (letter) variable 


Character variable 


Arithmetic array 


Arithmetic array element* 


Character array 


Figure 3-158, Trace Table 


Resolution of the Branch Address Table-—LRADDR 


LRADDR resolves all entries in the branch address table (Figure 3-159), (Refer to 
“Resolving Virtual Memory Addresses.’’) Resolution involves passing the branch address 
table against the statement address table (Figure 3-159), replacing line numbers in the 
branch address table with virtual addresses from the statement address table, and then 
updating the unresolved operands in virtual memory as specified in the branch address 
table. Both of these tables were written in the system work area on disk by the compiler. 

To efficiently replace the line numbers, the branch address table is sorted into ascend- 
ing line number order (last two bytes of entry) by the sort subroutine (LSORTA). One 
sector is processed at a time. The statement address table is created in ascending line 
number order; therefore, it need not be sorted. Each line number in the branch address 
table is located in the statement address table, and the line number in the branch address 
table is replaced with its associated virtual address from the statement address table. 

It may be necessary to scan more than one sector of the statement address table to 
locate a line number, If the range of line numbers in the statement address table buffer 
is higher than the unresolved line number, the scan starts with the first sector of the 
statement address table. If the range of line numbers in the buffer is lower, the next 
sequential sector is read from disk. 
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After all line numbers in one sector of the branch address table have been replaced, the 
updated sector is again sorted (LSORTA), this time to arrange the entries in ascending 
virtual-memory-location order (first two bytes of entry). After the sort, the virtual- 
memory page required by the first entry in the branch address table is read from disk. 
This page is updated at the displacements indicated by all entries in that range of virtual 
addresses and then written back to virtual memory. 


Branch Address Table Entry Statement Address Table Entry 


—_ 
! a my 
_— 
—_— —_ 
_ — 
— 


| —— oi 


Updated Branch Address Table Entry 


VADR VADR 
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Figure 3-159, Branch and Statement Address Tables 


When all entries on one sector of the branch address table have been processed, the 
next sequential sector is read from disk, sorted by line number, updated from the state- 
ment address table, sorted by virtual-memory location, virtual-memory updated, etc. 
This process continues until all entries in the branch address table (16 sectors maximum) 
have been resolved, 

When the last entry in the table is resolved, the interpreter (4INSTD or #INLNG) is 
loaded via $RLOAD in the system nucleus. #INSTD is loaded if execution is to be in 
standard precision; #INLNG is loaded to execute the BASIC program in long precision. 


Sorting the Branch Address Table—LSORTA 


One 256-byte buffer containing four-byte entries is sorted on each call to LSORTA. The 
entries are sorted in place, and in ascending order by either the first two or last two bytes 
of the entries. 

Input parameters to LSORTA are: 
1. The core address of the two-byte sort field (register @XR). 
2. The core address of the buffer to be sorted (register @BR). 
3. The core address of the next to the last two-byte sort field in the buffer (LSBOTM). 

The number of entries in a buffer is variable. 


The method used by LSORTA is called sifting down and bubbling up (Figure 3-160). 
The entries are scanned, from the top, until two sort fields are found that are not in 
ascending order. This is called sifting down. When out-of-sequence entries occur, they 
are reversed, The scan of the entries reverses, and entries are swapped until the out-of- 
sequence entries are in the correct sequence. This is called bubbling up. Sifting down 
continues from the point where the out of sequence was detected. Only one full for- 
ward pass is made over the entries in the buffer. When all entries are in ascending order, 
this subroutine returns to LRADDR, 
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Sift Down 


6. Continue sifting and bubbling until all entries are in sequence, 


BR1222 


Figure 3-160. Sift and Bubble Sort (Worst Case) 
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#LOADR 


LALLOC 


VIRTUAL MEMORY ARRAY ALLOCATION 


. Determine virtual memory space available. 
. Allocate arithmetic arrays. 
. Allocate character arrays. 


. Exit to $CAERK on errors to load #ERRPG. 
. Place dope vectors in virtual memory. 


LDFILE 


FILE BUFFER ALLOCATION 


Get file directory 1. 

lf file directory 1 has 2 sectors, allocate 

one page for the second sector. 

Initialize file directory 2 to zeros, 

Calculate remaining virtual memory pages available. 
Count device types. 

Allocate one page to each card file. 

Allocate evenly up to 8 pages for each disk file. 
Exit to $CAERK on errors to load #ERRPG. 
Save both file directories in virtual memory. 
Read trace reference list if in trace mode. 


1, 
2. 
3. 
4, 
5. 
6. 
7. 
8. 
9. 
0. 


= 


LVINIT 


SCAN TRACE REFERENCE LIST 


1. Scan trace reference list and set trace bits on in 
the internally generated trace list for each variable 
encountered, 

. Exit to $CAERK on errors to load #ERRPG. 


LV1045 


INITIALIZE LVINIT 


1. Set trace list bits off if not in trace mode. 


2. Set routine for long precision if required. 


LV1320 


INITIALIZE ARRAYS (ENTIRE) 


. Initialize arithmetic arrays in region 1. 
. Initialize character arrays in region 1. 


Initialize arithmetic arrays in region 2, 
Initialize character arrays in region 2. 


Figure 3-161, Loader (#LOADR) Flowchart (Part 1 of 2) BR1223.1A 
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LV1060 


INITIALIZE INTERNAL CONSTANTS 
AND VARIABLES 


1. Initialize internal constants. 


2. Initialize internal variables if any. 


LV1200 
INITIALIZE PROGRAM VARIABLES 


. Initialize character variables. 

. Initialize letter variables. 

. Initialize letter-digit variables. 

. Exit to $CAERK on errors to load #ERRPG. 


LV1670 
REINITIALIZE ARRAY ELEMENTS TO BE TRACED 


. Initialize arithmetic array elements, 

. Initialize character array elements. 

. Exit to $CAERK on errors to load HERRPG. 
. Write initialized buffers to virtual memory. 


LRADDR 


BRANCH ADDRESS RESOLUTION 


. Get branch table sector. 

. Get statement table sector. 

. Enter LSORTA to sort branch table sector by tine 
number. 

« Replace line number in branch table with virtual 
address from matching line number entry in 
statement table. 


LALOOO 


VIRTUAL MEMORY FUNCTION LOAD 


1. Set routine for long precision if required. 

2. Get virtual memory functions from disk. 

3. Initialize virtual memory with the virtual 
memory resident functions if required, 

. Exit to $RLOAD to load interpreter. 


LRA200 


VIRTUAL MEMORY MODIFICATION 


1. Enter LSORTA to sort branch table by the virtual 
address. 
. Get desired sector of virtual memory. 
. Move the saved virtual address to the virtual 
memory instruction, 
. If all branch table entries processed save symbol 
tables on disk. 


In 
Long 
Precision 


All 
Table 
Entries 
Processed 


Yes 


“#INLNG: 
Figure 3-164 
Via $RLOAD 


#INSTD 
Figure 3-164 
Via $RLOAD 


BR1223.2 


Figure 3-161. Loader (#LOADR) Flowchart (Part 2 of 2) 
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INTERPRETER (Figure 3-164) 


Input to the interpreter is an object program composed of pseudo machine instructions. 
The interpreter executes these instructions, one at a time, to produce output for the 
user. 


Interpreter Cycle 


1. The pseudo instruction address register (PIAR) points to the op code of the next 
pseudo instruction to be executed. If the virtual-memory page that contains that 
pseudo instruction is not in core, it is read from virtual memory into the paging 
area, 

2. The op code is used as a displacement into the PMC execution branch table. The 
core address located in the table is used to branch to a core-resident execution 
subroutine. 

3. The core-resident subroutine may interface to an execution subroutine resident 
in virtual memory. The page containing the subroutine is read into the paging 
area if it is not already there. 

4. The pseudo instruction is executed. Pages containing required data elements are 
read into the paging area if they are not already there. 

5. | The PIAR is incremented by the instruction length to point to the next sequential 
pseudo instruction; or, if branching, the branch virtual address is used to set the 
PIAR. 

6. Steps | through 5 are performed until a terminating pseudo instruction is encoun- 
tered and then a return is made to conversational mode. 


Organization of Assembly Listings 
All modules of the interpreter are contained in these four assemblies: 


1. Standard precision core resident routines-#INSTD 

2. Long precision core resident routines-#INLNG 

3. Standard precision virtual memory resident execution subroutines-#FMSTD 
4. Long precision virtual memory resident execution subroutines-#FMLNG 


Interpreter Core Resident Routines—#INSTD, #INLNG 


Two interpreter programs reside in the system program file. Either program is loaded 
into core for execution at X‘0600’, immediately following the system nucleus. These 
two programs are: 


#INSTD-—Standard precision interpreter 
#INLNG—Long precision interpreter 


The assembly of either #INSTD or #INLNG contains the same modules except for 
different interpreter execution equates. Each module assembles to the same byte length 
regardless of the precision, the differences being reflected in the execution characteristics 
of the coding. Each assembly contains the following modules arranged in the order 
listed: 

@SYSEQ—General system equates 

@FXDEQ-—Fixed address equates 

@CANEQ—Command analyzer equates 

@ERMEQ-—Error message equates 

$V$EQU—Virtual address equates 

$B@EQU—Compiler system equates 

SISEQU—Interpreter fixed equates 

$I@SEQ—Interpreter system equates (The long-precision interpreter contains $I@LEQ 
instead of $I@SEQ. This is the only difference in the assembly listings.) 
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IMINIT—Initiator (overlayed with the run-time stack and work areas) 
FDIADD/FDISUB—Floating-point add/subtract 
FZIMPY—Floating-point multiply 

FFIDVD—Floating-point divide 

CPUFLT—Convert floating-point element to unpacked-decimal 
CUPFLT—Convert floating-point element to packed-decimal 
CAFPBS—Convert floating-point element to binary subscript 
ISTACK—Element stacking subroutine 

IUSTAK—Element unstacking subroutine 

INTERP—Interpreter executive 

ICFLTA—Arithmetic pseudo instruction execution 

ICMATF—Matrix function pseudo instruction execution 
ICELST—Element stacking pseudo instruction execution 
ICARST—Array element stacking pseudo instruction execution 
ICTEST—Logical pseudo instruction execution 

ICBRAN--Branch pseudo instruction execution 
ICLOOP—FOR/NXT pseudo instruction execution 
ICVMEX~—Interface to pseudo instruction execution subroutines in virtual memory 
IPGMDL-—Virtual-memory paging subroutine 

IZCOMN—Interpreter common equates 


Interpreter Virtual-Memory-Resident Execution Subroutines-#FMSTD and #FMLNG 


Two interpreter components, containing virtual memory resident execution subroutines, 
reside in the system program file. Both components contain the same modules except for 
those marked with * on the symbolic label in Figure 3-162; coding varies in those 
modules due to precision differences, Each component assembles so that there is no 
difference between standard-precision and long-precision subroutine entry points. 


Virtual Disk Symbolic Pseudo aatee 
Address Address Label Mnemonic eycep 


*FKSLGT LGT intrinsic function (log base 10) 
*FKSLTW 
*FKSLOG 
CENXZD 
CCZDFP 
*FGSEXP 
FNBPWR 
FRBSOR 
*FSSCOS 
*FSSIN 
CBFPZD 
CDBNZD 
*FWSCOT 
*FWSTAN 
*FBSATN 
*FCSACS 
*FCSASN 
*FHSHCS 


LTW intrinsic function (log base 2} 


LOG intrinsic function (log base e) 


Convert exponent to zoned decimal 


Convert zoned decimal to floating point 


EXP intrinsic function (exponential) 


Floating-point exponentiate 


SOR intrinsic function (square root) 


COS intrinsic function (cosine) 


SIN intrinsic function (sine) 


Convert floating point to zoned decimal 


Convert binary number to zoned decimal 


COT intrinsic function (cotangent) 


TAN intrinsic function (tangent) 


ATN intrinsic function (arctangent) 


ACS intrinsic function (arcosine) 


ASN intrinsic function (arcsine) 


HCS intrinsic function (hyperbolic cosine) 
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Figure 3-162. Contents of Virtual Memory (Interpreter) (Part 1 of 3) 
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: ; Virtual Disk Symbolic Pseudo : ; 
) Address Address Label Mnemonic Synopsis 


1557 0754 *FHSHSN FN1 HSN intrinsic function (hyperbolic sine) 
1593 0754 *FHSHTN . FN1 HTN intrinsic function (hyperbolic tangent) 
1700 075C *FTSSEC FN1 SEC intrinsic function (secant) 
1725 _075¢ *FTSCSC FNi CSC intrinsic function (cosecant) 
1761 075C FABABS FN1 ABS intrinsic function (absolute value) 
176C 075C FJBINT FN4 INT intrinsic function (integer value) 
17A7 075C FUBSGN FN1 SGN intrinsic function (sign of value) 
17CB 075C FPBRAD FN1 RAD intrinsic-function (degrees to radians) 
17DA 075C FPBDEG FN1 DEG intrinsic function (radians to degrees) 
1800 0780 *FOSRND FNO or RND intrinsic function (random-number 
FN1 generator) 
1900 0784 IDDVST * Entry for all stack array dope vector pseudo 
instructions 
191F 0784 IDDSDO SDO Stack array dope vector (no redimensioning) 
192A 0784 IDDSD1 sp1 Stack array dope vector (redimension as a 
vector array) 
1930 0784 {DDSD2 $D2 Stack array dope vector (redimension as a 
matrix array) 
1A00 0788 IDFILE * Entry for all 1/O pseudo instructions 
1A40 0788 IDFGET GET Input data element 
1A75 0788 IDEPUT PUT Output data element 
1A87 0788 IDFINI INI Initiate data input 
1A95 0788 IDFADF ADF Activate external data file 
1AAB 0788 IDFPRS PRS Print and position carrier 
1ABA 0788 IDFPRU PRU Print using image 
1ACD 0788 IDFRSR RSR Restore internal data file pointer 
1AD6 0788 IDFRST | RST Reset externa! data file pointer 
1ADF 0788 IDFCLS CLS Close external data file 
1B00 078C IDIFNC FCI User function call {indirect) 
1C00 0780 SFADFR ADF Activate external data file 
1D00 0794 SFPUTR PUT Output element to external data file 
2100 07A4 SFGETR GET Input element from external data file 
2400 07B0 SFRCAL CLS Close all external data-files 
2406 07BO SFRCLS CLS Close a specified external tata file 
2409 07B0 SFRSET RST Reset external data pointer 
2500 07B4 DFKEYN GET Keyboard physical |OCS (actual {/O) 
25C0 07B4 DEPTBL GET Keyboard character table 
2800 07C0 DFPRNT PRS or System printer physical |OCS (actual 1/0) 
PRU 
2A00 07¢8 DFRDIN GET Card reader physical |OCS (actual 1/0) 
2A96 07C8 DFCOUT PUT Card punch physical [OCS (actual 1/O) . 
2B00 07CC FZXINP GET Keyboard input 
2800 07CC -FZXIP1 INI Initiate data Input from keyboard 
2B66 07¢C FZXIP2 GET Convert and move to virtual memory, one 


\ : keyboard Input data element 
BR1224.2: 
Figure 3-162, Contents of Virtual Memory (Interpreter) (Part 2 of 3) 
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FZREAD 
FZSPRT 
FZUPRT 
FZDMIP 


FZAMIO 
FZAMRD 


FZAMGT 
FZAMPT 


FZCMPR 
FZCMPS 


FZCMPL 
FZCMPU 


FEBMSB 
FEBMAD 
FMBMPY 
FYBSMM 
FZBIDN 
FZBCON 
FZBZER 
FLBMAS 
FXBTRN 
FVBINV 
FVBDET 
FZLINT 
FZVART 
FZZVMP 
FZZVPS 
FZZVPL 
DLFPRT 
SFADF2 
SUBSTR 


Read internal data file 
Print and carrier positioning 
Print using image 


Data input to a matrix via the keyboard 
(MAT INPUT) 


Matrix 1/O routines 


Read internal data file to a matrix (MAT 
READ) 


Get data from external data file to a matrix 
(MAT GET) 


Put data from a matrix to an external data 
file (MAT PUT) 


Matrix print routines 


Print (packed) contents of a matrix (MAT 
PRINT). 


Print (full) contents of a matrix (MAT 
PRINT) 


Print (using image) contents of matrix 
(MAT PRINT USING) 


Matrix subtraction (MAT C=A~B) 
Matrix addition (MAT C=A+B) 

Matrix multiplication (MAT C=A*B) 
Matrix scalar multiplication (MAT C=(E1)*M) 
Matrix identity (MAT C=IDN) 

Matrix unity (MAT C=CON) 

Matrix zero (MAT C=ZER) 

Matrix assignment (MAT A=B) 

Matrix transposition (MAT C=TRN (M)) 
Matrix inversion (MAT C=INV (M)) 
Matrix determinant (DET (C)) 

Trace line numbers subroutine 

Trace variables subroutine 
Virtual-memory push/pull subroutine 
Virtual-+memory push 

Virtual-memory pull 


Line printer physical 1OCR 


Activate external data file (part 2) 


Substring routine 
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Figure 3-162, Contents of Virtual Memory (Interpreter) (Part 3 of 3) 


Either component is copied to virtual memory by the loader (#LOADR) from the 
system progtam file, Individual pages are read into the paging area of core and executed 
under control of the virtual-memory paging subroutine (IPGMDL). Both components 
contain subroutines to perform the functions listed in Figure 3-162. 

The following list contains explanations of the column entries in Figure 3-162: 


1. “Virtual address” is the virtual entry point to perform the function. 
2. “Disk address” is the physical disk address of the virtual-memory page containing 


the entry point. 
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3. “Symbolic label’ is the symbolic name of the entry point in the assembly listings 
of either #FMSTD or #FMLNG. An * indicates that coding in the subroutine 
varies due to precision differences, 

4, ‘Pseudo mnemonic” is the mnemonic of the pseudo instruction associated with 
the execution of that subroutine. An * indicates that multiple pseudo instructions 
are associated with the subroutine. 


Interpreter Labeling Conventions 


Because virtual-memory-resident routines must communicate with the core-resident 
interpreter, a fixed equate module (S$I$EQU) is used to reference core-resident instruc- 
tions and areas. In addition, equate module IZCOMN is used to assist in defining the 
fixed addresses in $1$EQU., Essentially, IZCOMN references the same core addresses as 
SISEQU, except IZCOMN addresses are derived from the assembled code while $ISEQU 
addresses are manually adjusted constants. 

Core-resident modules are coded to reference other core-resident modules using the 
following conventions: 


e@ Module entry points—Actual entry point label. 


e Module data/instruction fields—Equivalent IZCOMN label. 


Virtual-memory modules are coded to reference core-resident modules using the 
following conventions: 


e Module entry points—Equivalent SISEQU label. 
e Module data/instruction fields—Equivalent $I$EQU label. 


Virtual-memory-resident module entry points are always referenced using the appropriate 
$VSEQU label. 

Program descriptions use the following conventions, with respect to both core-resident 
and VM-resident modules, for consistency: 


e Module entry points—Actual entry point label. 


e@ Module data/instruction fields—Equivalent $I$EQU label. 


For example: 


e Actual core-resident entry point label— INTERR 
Referenced from core as— INTERR 
Referenced from virtual memory as— ISXERR 

e Actual core-resident data field label— INTERC 
Referenced from core as— IZERRC 
Referenced from virtual memory as— ISERRC 

e Actual VM-resident entry point label— FZREAD 
Referenced from core as— V$XSRD 
Referenced from virtual memory as— V$XSRD 


Interpreter Initiator—IMINIT 


IMINIT modifies the core-resident interpreter for an expanded core configuration, 
initializes the core virtual-memory page region, and sets run-time indicators prior to 
entering the interpreter executive (INTERP). 
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Expanded Core Utilization 


When the system core configuration exceeds 8k and core beyond 8k is available for 
increased operational efficiency, IMINIT performs appropriate adjustments to the paging 
subroutine (IPGMDL) such that all usable core space is dedicated to expanding the core 
page region. The 8k system (Figure 3-163) operates on 10 core pages. When extra core 

is available, one of these page areas is used to expand tables in IPGMDL. The remaining 
nine-page region, combined with the additional core, is used to contain virtual-memory 
pages. The size of the core paging area is: 


Core Size Pages 
8k 10 
12k (with CRT) 18 
12k (no CRT) 25 
16k (with CRT) 34 
16k (no CRT) 41 


After core allocation, the core page region is loaded from virtual memory with con- 
secutive pages beginning with page number 00. The page reference table in IPGMDL is 
initialized to define this condition, 


Interpreter Executive—INTERP 


The primary function of INTERP is to translate a pseudo instruction op code into the 
entry point of a core-resident PMC processing routine and then branch to that routine. 
INTERP also contains certain housekeeping routines and work areas that are central to 
interpreter operations and PMC routines to process the following pseudo machine 
instructions: 


STH—Statement header 

IMH—Image statement header 

HLT—Halt execution ) 
EOP—End of page 

SVC—Supervisor call 


Entry points to INTERP are: 


1. INTERP—Begin execution. The first virtualamemory PMC page is locked into core. 
The first pseudo instruction in that page is accessed and control is passed to the 
appropriate PMC processing routine. 

2. INTPAG~—Transfer control, The virtual-memory PMC page specified in ISVADR is 
locked into core. The pseudo instruction referenced by ISVADR is accessed and 
control is passed to the appropriate PMC processing routine. 

3. INTAD1-The pseudo instruction address register (ISXIAR) is incremented by one 
byte. The next instruction is accessed. 

4. INTAD2~—I$XIAR is incremented by two bytes and the next instruction is 


accessed, 

5S. INTAD3-—ISXIAR is incremented by three bytes and the next instruction is 
accessed, 

6. INTAD4—I$XIAR is incremented by four bytes and the next instruction is 
accessed. 


7. INTXEC—The pseudo instruction referenced by I$XIAR is accessed and control 
is passed to the appropriate PMC processing routine. 

8, INTADS~—The run-time stack pointer (I$STAK) is incremented by the value in 
parameter ISSTKI. An error condition occurs when ISSTAK is incremented beyond 
the stack data limit, 

9. INTERR—The error code in ISERRC is stored as a parameter to the error program 
(#ERRPG), all active external data files are closed, all modified pages in core are 
written back to virtual memory, and control is passed to the error program, via 
$CAERK in the system nucleus. 
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Program 
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Any Virtual Memory Page 


“. 
N 
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Any Virtual Memory Page 
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Memory 
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Figure 3-163. Interpreter Core Map (8k System) 


Input parameters to INTERP are: 

1. I$XPAG (entry INTPAG)—One byte, for the execution page number. This con- 
tains the virtual page number of the PMC page to which control is to be 
transferred, 

2. ISVADR (entry INTPAG)—Two bytes, for the paging routine virtual address 
parameter. This contains the virtual address of the pseudo instruction to which 
control is to be transferred. 

3. ISXIAR (entries INTAD1, INTAD2, INTAD3, INTAD4)—Two bytes, for the 
pseudo instruction address register. This contains the core address of the op 


code byte of the pseudo instruction. 
4. I$XIAR (entry INTXEC)—Contains the core address of the op code byte in 
the pseudo instruction to be executed. 
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5. I$STKI (entry INTADS)—One byte, for the run-time stack pointer increment. 
This contains the value of the increment to be added to ISSTAK. 

6. I$ERRC (entry INTERR)—One byte, for the interpreter error code. This contains 
the code associated with the error message to be displayed by the system error 
program on exit to $CAERK. 


Output parameters from INTERP are: 


1. I$XIAR (entry INTPAG)—Contains the core address of the op code byte in the 
pseudo instruction to which control is transferred. 

2. I$XIAR (entries INTAD1, INTAD2, INTAD3, INTAD4)—Contains the core 
address of the op code byte of the next pseudo instruction to be executed. 

3. I$STAK (entry INTADS)-—Two bytes, for the run-time stack pointer. This has 
been incremented by the value in parameter ISSTKI. 

4, $CAERR (INTERR execution)—One byte, for the system error program param- 
eter. This is set equal to the value in ISERRC. 

5. $INLNO (STH execution)—Two bytes, for the system execution line number. This 
is set to contain the binary line number operand in the STH instruction. 

6. I$STHA (STH execution)—Two bytes, for the statement header virtual address. 
This is set to contain the virtual address of the op code in the currently executed 
STH instruction. 

7. I$1RSW (JMH execution)—One byte, for the image reference switch. This switch 
is set off (code @NOP) during IMH instruction execution. 

8. | I$IRSW (STH/IMH execution)—One byte, for the image reference switch. This 
switch, normally set to code @NOP, is set to code @UCB when the statement 
header to be executed must be an IMH rather than an STH. 

9. I$RESW (STH execution)—One byte, for the recursion error switch. This is set 
to code @NOP when line number recursion is permitted during STH execution; 
unless specifically set prior to each STH instruction execution, ISRESW contains 
code @UCB which causes an error condition when line number recursion occurs. 

10. ISTFSW (STH execution)—One byte, for the trace flow switch. This is set to code 
@NOP when TRACE FLOW is specified, and causes line number display when 
$TRACE in $XIND1 is also on, When TRACE mode processing has not been 
specified, ISTFSW is set to code @UCB. 

11. $INLNO (STH execution)—Two bytes, for the system execution line number. 
This contains the binary line number of the statement just executed, or the value 
X‘FFFF’ when the first STH instruction is to be executed. 

12. $XIND2 (INTERR, SVC execution)—One byte, for system execution indicator 2. 
Bit $EXCMD is set off, indicating termination of execution mode. 


INTERP contains the following interpreter common work areas. Where applicable, the 
external label is given along with the internal area name: 


INTDT1 G$DAT1)—Two bytes, for the internal data file base pointer, 
NTPAR (I$PARM)—Two bytes, for the interpreter common parameter field. 
NTWK1 (ISWRK1)—Two bytes, for interpreter common work area 1. 
INTWK2 (ISWRK2)—Two bytes, for interpreter common work area 2. 
INTDAT (I$DATA)—Two bytes, for the internal data file pointer. 

INTPIN (PRINT USING communication area)—Twelve bytes, for interpage 

i 

I 


I 
I 


ANAwNS 


nformation transfer during PRINT USING operations. 

NTFAT (user function activity table)—Used as a push-down stack to control the 
execution of nested user functions. The first table entry is set equal to X‘0000’ to 
indicate the bottom of the stack. Each two-byte entry in the table contains the 
virtual address of an active user function. 
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8. INTBAT (PMC execution branch table)—Used to translate pseudo instruction op 
codes to PMC execution routine core address entry points, Each two-byte entry 
contains the core address entry point of a PMC execution routine defined by the 
relative position of the entry in the table. The op code value is used as an index to 
this table. This table contains entries for all pseudo instructions except DCA, DDL, 
DWA, and EOF. 


Paging Subroutine—IPGMDL 


The paging module interfaces between core routines (including virtual memory pages 
presently in core) and virtual memory. It provides the capability of addressing virtual 
memory directly and provides subroutine communication within VM. Several options 
give user control over the replacement process. 

The paging module has eight entry points which are described as follows: 


1, I$CVAD or IPGCVA—Convert address. Keeps all counters, usage value, and other 
page information up to date as well as reading and writing VM pages when neces- 
sary. The basic external function is to provide the caller with a core address (at 
label IPGCAD) when called with a virtual address (at label IPGVAD). When return 
is made, the page containing the byte referenced by IPGVAD is in core and the 
byte address is the value at location IPGCAD. 

2. I$MDFY or IPGMOD—Page modify. Performs all the functions of IPGCVA as well 
as setting the read-only bit for the referenced page. This bit indicates that the page 
must be written back to virtual memory when modifications have been made to it. 
If the read-only bit has not been set for a page at replacement time, the paging 
subroutine assumes that the core page is still an exact copy of the disk virtual- 
memory page and a write operation is not performed. 

3. I$LOCK or IPGLOK—Page lock. Performs all the functions of IPGCVA as well as 
setting the page locked bit for the referenced page. This function is used so that 
future references to the page can be made using core addresses. The page uncon- 
ditionally remains at the same core location until the lock bit is reset. 

4, ISUNLK or IPGULK—Page unlock, Performs all the functions of IPGCVA as well 
as resetting the page locked bit. This means that the page is subject to being 
replaced by future paging operations. 

5. I$LDBR or IPGLBR—Convert address and load @BR. Performs all the functions 
of IPGCVA as well as setting @BR to point to the first byte of the page in core. 
@BR may then be used as the referenced page base register as well as allowing 
the calling page to reference any byte of the page by using the proper page 
displacement. 

6. ISLDXR or IPGLXR—Convert address and load @XR. Performs all the functions 
of IPGCVA as well as setting @XR to the converted core address, @XR may then 
be used to directly reference the byte referred to by the virtual address. 

7, I$CALL or IPGCAL—Call pageable subroutines. Performs all the functions of 
IPGLBR as well as locking the referenced page in core and stacking the return 
address and base register of the calling page for future return. A branch is made 
to the specified address. 

8. I$RTRN or IPGRTN—Return from pageable subroutine. Unlocks the returning 
page, and then unstacks the next available return address and base register (pre- 
viously stacked by IPGCAL) and returns to the original calling program. 


_ There are two major work areas in the paging subroutine. One afea is centrally located 
so that location will be within the base register range. The other area consists of tables 
and follows the paging subroutine code. The core page area follows the tables beginning 
with the next even 256-byte core address. The paging module is arranged in core so that 
the 8k version tables end immediately before the first core page (X‘1SFF’). 
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The central work area contains: 


1. IPGVAD—Virtual address storage location (three bytes). The first byte is always 
00, the second byte is the virtual page number, and the third byte is the page 
displacement. 

2. IPGCAD—Core address storage location (two bytes). The first byte equals the 
core page number (IPGCPG), and the second byte equals the page displacement. 

3. IPGUVL—Reference counter for setting page usage value (two bytes). 


The tables at the end of the paging subroutine code are: 


1. JPGUVT—Usage values table; two bytes per entry, indexed from the low end by 
(IPGCPG)*2. 

2. IPGLRT—Lock, read-only bit table; one byte per entry, indexed from the low 
end by PGNO, Only two bits of each entry are used. 

3. IPGTBL—Page table; one byte per entry, indexed from the low end by IPGVPG, 
If a page is in core, its entry is equal to IPGCPG. If a page is not in core, its entry 
equals 00. 

4, JPGSTK—Page call stack (four bytes per entry). This stack is used in IPGCAL/ 
IPGRTN functions to save @BR and return addresses, 


Element Stacking Subroutine—ISTACK 


ISTACK moves a variable-length data field from virtual memory to the core location 
(normally within the run-time stack) referenced by index register @XR. The field is 
referenced in virtual memory using paging parameter ISVADR, and may extend across 
a single virtual page boundary. Field length is specified in a one-byte parameter to the 
subroutine, and remains available after subroutine execution. Register @XR is not 
modified during execution, but the virtual address in ISVADR is subject to modification 
when a page boundary condition exists. 

Input parameters to ISTACK are: 


1. Register @XR—For the destination core location pointer. This contains the core 
address of the leftmost byte of the core area into which the data element is to 
be moved. 

2. I$VADR—Two bytes, for the paging routine virtual address parameter. This con- 
tains the virtual address of the leftmost byte of the data element that is to be 
moved. 

3. I$SLNG—One byte, for the data element length code, This contains a value that 
is one less than the actual length of the data element. Unless specifically set prior 
to subroutine execution, ISSLNG automatically contains the length code required 
to move a packed floating-point decimal value (five bytes for standard precision, 
nine bytes for long precision). 


Element Unstacking Subroutine—IUSTAK 


ITUSTAK moves a variable-length data field from the core location (normally within the 
run-time stack) referenced by index register @XR to virtual memory. The destination 
field is referenced in virtual memory using paging parameter ISVADR, and may extend 
across a single core page boundary. Field length is specified in a one-byte parameter to 
the subroutine. Register @XR is returned to the calling program intact, but the virtual 
address in ISVADR is subject to modification when a page boundary condition exists. 

Depending on a subroutine parameter setting, the source data type may be compared 
with the data type contained in the destination field (arithmetic or character); incon- 
sistent data types cause execution to be aborted on an error condition. 

Also, depending on the current execution mode of the system, the new value of an 
element whose destination field is tagged for tracing is displayed on the system output 
device. 
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Input parameters to IUSTAK are: 


1. Register @XR—For the source core location pointer. This contains the core address 
of the leftmost byte of the core area from which the data element is to be moved. 

2. I$VADR—Two bytes, for the paging routine virtual address parameter. This con- 
tains the virtual address of the leftmost byte of the destination field in virtual 
memory. 

3. I$ULNG—One byte, for the data element length code. This contains a value that 
is one less than the actual length of the data element. Unless specifically set prior 
to subroutine execution, ISULNG automatically contains the length code required 
to move a packed floating-point decimal value (five bytes for standard precision, 
nine bytes for long precision). 

4. I$DMSW—One byte, for the unstacking routine data matching switch. This con- 
tains code @NOP when matching is to be performed, or code @UCB when matching 
is not required. 

5. $XIND1—One byte, for system execution indicator-1. This indicator contains a bit 
(mask $TRACE) which is set on when TRACE mode execution has been specified. 

Output parameters from IUSTAK are: 

1, | Unstacked data element—(ISULNG+1) bytes, located with leftmost byte stored 
in virtual memory at the address originally specified in ISVADR. 

2. Traced variable-When TRACE mode has been specified and the destination field 
has been tagged for variable trace, the unstacked value is displayed, in association 
with the BASIC identifier corresponding to the destination field, on the system 
output device. 

3. IS$ERRC—One byte, for the error condition code. This contains a null code 
(I@NERR) when no error condition exists, or an error code specifying the 
particular error condition discovered. 
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#INSTD 
#INLNG 
IMINIT 


INITIALIZE BASIC INTERPRETER 


Read 10+ $EXFTR pages from disk VM to core 
page region starting with virtual page 0. 

. Adjust IPGMDL program and tables for size and con- 
tents of core page region. 

Set data file pointers with value in $INLNO. 

. Mask inquiry request. 

. Set $VMDEF and $EXCMD indicators on. 

. Set PMC IAR for 1st instruction in 1st PMC page. 


= 


QnPwW N 


INTO70 


ACCESS VIRTUAL MEMORY PMC EXECUTION 
PAGE 
1. Read and lock PMC page using IPGMDL. 


INTO40 


ADVANCE PMC ADDRESS POINTER 
1. Increment PMC JAR by current PMC length, 


INTO80 


SET UP PSEUDO MACHINE INSTRUCTION 
EXECUTION 
1. Select PMC processor using opcode at PMC IAR. 
2. Branch to execute selected PMC processor. 

STH 


HLT 
EOP 


SVC 


Non-Branching PMC 


Branching PMC 


ICBRAN Branching PMC 


EXECUTE BRANCHING PSEUDO INSTRUCTION 


_ Set PMC IAR using branch destination virtual 
address. 


. Unlock current PMC page using IPGMDL when desti- 
nation address outside current page. 


Yes Terminal 


Error 


No 


PMC 
Within 
Current 
Page 


Use IPGMDL to control.all VM paging operations. 
Use ISTACK to move VM elements to run-time 
stack. 

Use IUSTAK to move stacked elements to VM; 
display unstacked data if variable trace mode. 

Use CPUFLT to unpack arithmetic elements for 
functions. 

Use CUPFLT to pack arithmetic elements for stor- 
age. 

Use ICFLTA to perform arithmetic in stack. 

Use ICMATF to perform matrix operations. 

Use ICELST to store scalar items in stack. 

Use ICARST to store array items in stack. 

Use ICLOOP to execute for/next operations. 

Use ICVMEX to interface to VM resident PMC 
execution routines. 

Use IDIFNC to execute user-function (FCI) opera- 
tions. 

Use IDDVST to stack array dope vectors. 

Use IDFILE to interface to VM resident input/ 
output routines. 


No 


Terminal 
Error 


INTERR Yes 


PROCESS A RUN-TIME ERROR-CONDITION 


1. Close all active external data files. 

2. Write all core VM pages to disk VM. 

3. Set execution mode indicator $EXCMD off. 

4. Exit to $CAERK to load and execute HERRPG. 


Figure 3-17 
Via $CAERK 


BR1226.1A 


Figure 3-164, Interpreter (#INSTD, #INLNG) Flowchart (Part 1 of 2) 
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INTSTH 


. Execute INTERR if invalid statement line number 
recursion occurs. 

2. Call $UNMSK to honor pending inquiry request; 

remask inquiry request on return, 

. Call $PAUSD to execute #EXMSG if step mode. 

. Execute INTSVC if GO ABORT specified. 

. Store new statement fine number in $INLNO. 

. Display $INLNO if trace flow mode. 


Ooh w 


INTHLT 
PROCESS HALT PSEUDO INSTRUCTION 


See Oe 


1. Call DLFPRT if there is something to print and the 
system is in line-printer mode. 

2. Call $PAUSD to execute #EXMSG for BASIC 
program PAUSE statement. 

3. Disable inquiry request/step mode processing during 

next STH execution only 


INTEOP 


PROCESS END-OF-PAGE PSEUDO INSTRUCTION 


1. Unlock current PMC page using IPGMDL. 
2. Set PMC IAR for 1st instruction in next PMC page. 


INTSVC 


PROCESS SUPERVISOR CALL PSEUDO 
INSTRUCTION 


1. Call DLFPRT if there is something to print and the 
system is in line-printer mode. 

Close all active external data files. 

Write all core VM pages to disk VM. 

Set execution mode indicator $E XCMD off. 
Exit to $CARPL to load and execute #GUFUD. 


#GUFUD 
Figure 3-22 
Via $CARPL 
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Figure 3-164. Interpreter (#INSTD, #INLNG) Flowchart (Part 2 of 2) 
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1/O Execution Subroutines 


Keyboard Physical |OCS-DFKEYN 


DFKEYN reads from the keyboard to an input buffer and displays the input on the 
system printer, via a call to DFPRNT, through the paging subroutine (PGMDL). All 
actual I/O to the keyboard during user program execution is executed by this sub- 
routine. All function and command keys, except the enter-plus and program start keys, 
are processed, The call to this I/O subroutine includes the passing in @XR of the input 
buffer address. 


System Printer Physical |OCS—DFPRNT 


DFPRNT (Figure 3-165) prints on the matrix printer and performs carrier positioning 
operations, All actual I/O to the matrix printer during user program execution is 
executed by this subroutine. Waits for I/O to complete are executed by DFPRNT after 
the SIO, prior to returning to the calling routine (no I/O overlap is possible). The call to 
this I/O subroutine includes the address of the printer parameter list (Figure 5-23) in 
@XR. This subroutine assumes that the print parameter list is valid. 


Line Printer Physical |OCR—DLFPRT (Figure 3-165) 


DLFPRT prints bidirectionally on the line printer and performs carrier positioning 
operations, All actual I/O to the line printer during user program execution is executed 
by this subroutine together with DFPRNT. Waits for I/O to complete are executed after 
the SIO command and prior to printing another line or returning to the calling routine 
(no I/O overlap), The address of the printer parameter list (Figure 5-23) is passed to this 
I/O subroutine in @XR. This subroutine assumes that the print parameter list is valid. 
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DFPRNT Y 1 


Load ERP 


Line 
Printer 
required 


page to 
core 


Sense 
device 
status 


Load DLFPRT 
Page to core 


DLFPRT 


Set up 
error history 
log entry 


Load 
buffer 


Halt on 
first error 


Update 
position of 
MP head 


Format 
line 


Retry 
(DFPRNT) 


SIO No 
Start requested 
operation 
Retry Yes 
(DLFPRNT) 


Set indicators 
Process end for MP down 
of forms : and hard 
error 


Return to 
calling program 


Figure 3-165. System Printer Physical IOCS (DFPRNT) and Line Printer 
Physical IOCS (DLF PRT) Flowchart 
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Card Reader Physical |OCS—DFRDIN (Figure 3-166) 

DFRDIN fills the input buffer (located at the address in register @XR) with blanks, and 
then reads the card image (80 bytes for the 129 Card Data Recorder and 96 bytes for 

the 5496 Data Recorder) into the buffer with no I/O overlap and no truncation. All 

actual I/O for input from the data recorder, during user program execution, is executed 

by this subroutine. The call to this 1/O subroutine includes the passing in @XR of the 
input data buffer address, Error procedures in DFRDIN are the same as those in #DREAD. 


Card Punch Physical |OCS—DFCOUT (Figure 3-166) 


DFCOUT punches 96 bytes of data from a buffer located at the address in @XR, with no 
I/O overlap. All actual I/O for output to the data recorder, during user program execu- 
tion, is executed by this subroutine, The call to this I/O subroutine includes the passing 
in @XR of the output data buffer address. : 


DR2000 
DFRDIN 


Sense device 
status, 


Fill 
buffer 
with 
blanks 


DROSOO 


Reader 
Ready 


If error is pending, 
build error history 
log entry. 

Yes 


DR3000 


Set hard Yes No Set indicator 
error indicator, for error pending. 


Yes 


Compare 
Error 


Wait call to log 
error and hard 


stop, 


Wait 


Transport 
Jam 


Hard Halt 
No 
Return to 
ing P 
Calling Program Soft Halt No 


BR1228.1A 


Figure 3-166, Card Reader Punch Physical IOCS (DFRDIN, DFCOUT) Flowchart (Part 1 of 2) 
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DFCOUT 


DCD200 


DCDS00 


Sense device 
status, 


Feed Yes 
Check 
No 
Compare No 
Error 
2 


Set hard 
error 
indicator, 


DcD400 


Return to 
Calling Routine 


Set error 
pending 
indicator. 


$DISKN 3-7 


Soft Halt 1 
Wait call to log 
error. 
Hard Halt 


BR1228.2A 


Figure 3-166. Card Reader Punch Physical IOCS (DFRDIN, DFCOUT) Flowchart (Part 2 of 2) 
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Activate External Data File-SFADFR 


SFADER is an execution-time file checker. Prior to any logical or physical I/O operation 
on an allocated file, SEADER is called to open the file or to verify that the file is already 
open. Depending upon the status of the referenced file, SFADFR performs one of two 
functions. If the file is already open, the displacement within directory 2 (page X‘01’), 
to the referenced entry, is stored in the directory 2 header for later use by SFGETR, 
SFPUTR or SFRSET. If the file had not been previously accessed, it must now be 
opened. The directory 1 (page X‘00’) record of allocated information is accessed and the 
file is found if it is a disk file. The directory 2 entry is initialized and the entry displace- 
ment is stored in the header. 


Output an Element to an External Data File—SFPUTR 


SFPUTR outputs a single arithmetic or character element to a sequential data file. This 
data file may be to disk, card, printer, or CRT. The specific action taken by this sub- 
routine depends upon the device type: 


1. Fora disk file, the data element is placed in a buffer that is allocated for the 
disk file. When the buffer is full, the overlay program #SFLOA transfers the 
full buffer to the external data file in the file library. Following each transfer, 
an end-of-file record is generated and written to the data file, following the 
data. This EOF record is written over by the next transfer of data. 
2. For acard output file, the data element is converted and placed in the buffer 
that is allocated for the card file. When the buffer is full, DFCOUT is called to 
punch the contents of the buffer. 
3. For output to the printer or CRT, the data element passed is converted to external 
notation and DFPRNT is called to output the data element. 


Input an Element from an External Data File-SFGETR 


SFGETR is called to input the next sequential data element from an external data file. 
This data file may be on either disk or card. The next sequential data element, arithmetic 
or character, is accessed and placed in the run-time stack area. If input is from the card 
reader, the data element must be converted to internal notation before it is passed, When 
all data elements in the buffers allocated to the file are depleted, a call is made to the 
appropriate routine to refill the buffers in virtual memory. Refer to “Label Trace for 
GET Pseudo Instruction.” 


Close or Reset External Data Files-SFRSET 


For disk or card output files, SFRSET outputs the last data elements (current contents 
of the buffers). For either input or output files, the current usage is set undefined (close 
only), the current buffer pointer is set to zero, and the displacement to the next sector 
of data within the file library (disk files only) is set to zero. 


Keyboard Inout—FZXINP 


FZXINP execution causes keyboard data entry to be enabled during program operation. 
Entered data is syntax checked with respect to form and type, and valid elements are 
converted to internal format and placed in the run-time stack on an individual basis, 

FZXINP performs the primary function of supporting the execution of INPUT state- 
ments. On a secondary level, the message printing, syntax checking, and data conversion 
facilities required for INPUT mode are also used for card file input operations. The first 
entry point (FZXIP1) operates in conjunction with stacked data type codes and a count 
parameter in ISPARM to allow keyboard data input and data line validity checking. The 
second entry point (FZXIP2) operates on the validity-checked data line to convert and 
stack sequentially occurring data elements. 
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Six alternate entry points are provided for use with MAT INPUT and GET (card) 
operations: 


e Entry points FZXPQ1, FZXPQ2, and FZXPEM print question mark(s) or error 
messages on the system print device(s). 


e Entry point FZXGCS syntax checks an entire GET (card) input line (into which 
comma delimiters have been inserted where they did not originally exist). 


e Entry point FZXMIS validity checks a partial or entire array row. 


e Entry point FZXCNV converts and stacks individual input line elements after the 
line has been syntax or validity checked. 


Print and Carrier Positioning—FZSPRT 


FZSPRT execution causes data output and/or carrier positioning on the system printer 
under control of codes developed from the format specified in a PRINT statement. 
FZSPRT performs the following functions depending on the code stored in interpreter 
parameter ISPARM: 


1, Code X‘01’—Print and no space. The data element at the top of the run-time 
stack is converted to output format and printed; if the element is arithmetic, 
the carrier is returned to the start of the next line, before printing, when the 
current line cannot contain the formatted value. The carrier is left positioned 
at the end of the printed value. 

2, Code X‘02’—Print and space full zone. The data element at the top of the run- 
time stack is converted to output format and printed; if the element is arithmetic, 
the carrier is returned to the start of the next line, before printing, when the 
current line cannot contain the formatted value; if the element is a character 
reference, the carrier is returned to the start of the next line, before printing, 
when the current line does not contain a full print zone (18 spaces). At the end 
of printing, the carrier is spaced to the end of the full print zone. 

3. Code X‘03’—Print and space packed zone. The data element at the top of the run- 
time stack is converted to output format and printed; if the element is arithmetic, 
the carrier is returned to the start of the next line, before printing, when the 
current line cannot contain the formatted value. After an arithmetic element is 
printed, the carrier is spaced to the end of the packed print zone; after a 
character element is printed, the carrier is left positioned at the end of the 
printed element. 

4, Code X‘04’—Print and return carrier. The data element at the top of the run- 
time stack is converted to output format and printed; if the element is arithmetic, 
the carrier is returned to the start of the next line, before printing, when the 
current line cannot contain the formatted value. After the element is printed, the 
carrier is returned to the start of the next line. 

5. Code X‘05’—Space full zone. The carrier is spaced 18 characters, If no more than 
18 characters remain in the current line, the carrier is returned to the start of the 
next line. 

6. Code X‘06’—Space packed zone. The carrier is spaced three characters. If no more 
than three characters remain in the current line, the carrier is returned to the start 
of the next line. 

7, Code X‘07’—Return carrier. The carrier is returned to the start of the next line. 

8. Code X‘08’—Return carrier on condition, When the current line does not contain 
more than 18 characters, the carrier is returned to the start of the next line. 


When required, element conversion and output are performed in the run-time stack, 
so that the stacked value is not recoverable after printing. Arithmetic element output 
format depends on the magnitude and fractional characteristics of the value; character 
reference formatting involves truncation of trailing blanks, character constants are 
printed as specified in the PRINT statement. 
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Either the matrix printer or the CRT (or both) may be used for output, depending on 


the current definition of the system printer. CRT output is based on a fixed display 
width of 64 characters, while printer line width is based on that assigned through the 
WIDTH system command. 


Print Using lmage—FZUPRT 

FZUPRT execution causes a print image to be established in virtual-memory buffers and 
data elements to be output on the system printer under format control of image con- 
version specifications. FZUPRT performs the following functions depending on the code 
stored in interpreter parameter ISPARM: 


Ll 


Code X‘00’—Release image. Virtual-memory pages containing the currently 
established image are unlocked for replacement during normal paging operations. 
Code X‘01’—Null image specification. This code causes a null image indicator to 
be set for future PRINT USING operations; no image buffers are established. 
Code X‘02’—Null print list specification. This code causes the currently established 
image to be printed, up to the character preceding the first conversion specifica- 
tion or end of image, and the carrier returned to the start of the next line; a null 
image results in a simple carrier return. 

Code X‘03’—Null character constant. This code causes the next available conver- 
sion specification in the image work buffer to be filled with blanks. 

Code X‘04’—First image segment. This code causes the character constant segment 
at the top of the run-time stack to be established as the first image segment in the 
image save buffer. 

Code X‘05’—Secondary image segment. This code causes the character constant 
segment at the top of the run-time stack to be added to the existing image segments 
in the image save buffer. 

Code X‘06’—Primary data element. A primary data element is defined as a floating 
point value, a character element, or the first segment of a multisegment character 
constant. This code causes the primary data element at the top of the run-time 
stack to be converted and placed in the image work buffer according to the next 
available conversion specification. 

Code X‘07’—Secondary data element. A secondary data element is defined as any 
segment (except the first) of a multisegment character constant. This code causes 
the secondary data element at the top of the run-time stack to be converted and 
placed in the image work buffer according to the currently referenced conversion 
specification (i.e., added to the current contents of the conversion specification). 


Operations involving the “next available” conversion specification imply the following 


actions: 

1. When no unfilled conversion specification remains in the image work buffer, the 
filled image is printed and the carrier is returned to the start of the next line. 

2. When an image is to be printed, the carrier is returned to the start of the next line 
(before printing occurs) when not already positioned at the start of the current 
line. 

3, Following step 1, all conversion specifications in the image become available, with 


1. 


the “next available” specification being the first contained in the image. 


In conjunction with the codes, these indicators may be set in ISPARM: 


Mask X‘10’—Terminate print using. This indicator causes the image to be printed, 
up to the character preceding the next conversion specification or end of image, 
following the activity specified by the control code itself. All image buffers are 
released from core VM. 
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2. Mask X‘20’—Matrix end of row. This indicator causes the image to be printed, up 
to the character preceding the next conversion specification or end of image, fol- 
lowing the activity specified by the control code itself. Image buffers remain 
locked in core VM, and step 3 in the previous paragraph becomes effective. 


Either the matrix printer or the CRT (or both) may be used for output, depending on 
the current definition of the system printer. 


Keyboard Input to a Matrix—FZDMIP 


FZDMIP contains the run-time routine which executes matrix operations for an array 
referenced ina MAT INPUT statement. FZDMIP performs INPUT operations for each 
element of the matrix referenced by the arithmetic array dope vector at the top of the 
run-time stack, Elements are entered on a row-by-row basis, each data line consisting of 
an entire partial array row. Partial array rows are terminated with a comma preceding 
the keyboard carriage return; the end of a row is signified with a carriage return without 
a preceding comma, 

A single question mark is printed to request entry of the first array row. Thereafter, 
two question marks are printed to request data line entry until the array is completely 
assigned, Input errors in any single line cause a request (??) for the reentry of the entire 
row associated with that line (after an appropriate error message has been printed), 
Input is automatically terminated when each array element has been assigned a value. 

Inquiry request may be invoked whenever the keyboard has been enabled for input. 
This results in reexecution of the STH pseudo instruction associated with the current 
MAT INPUT statement. 


Matrix 1/0 Routines-FZAMIO 


FZAMIO contains the run-time routines which execute matrix operations for an array 
referenced ina MAT READ, MAT GET, or MAT PUT statement. FZAMIO performs 
operations for each element of the matrix referenced by the arithmetic array dope vector 
at the top of the run-time stack: 


1. READ-—Successive elements from the program DATA file are assigned, beginning 
at the DATA file element currently referenced by ISDATA, to elements in the 
referenced matrix on a row-by-row basis; ISDATA is left referencing the first 
unused DATA element. 

2. GET-—Successive elements from the currently active external input file are assigned, 
beginning at the element currently referenced by the file pointer, to elements in 
the referenced matrix on a row-by-row basis; the file pointer is left referencing the 
first unused file element. 

3. PUT—Elements from the referenced matrix are assigned, on a row-by-row basis, 
to successive element positions in the currently active external output file beginning 
at the element position currently referenced by the file pointer. The file pointer is 
left referencing the first unused file element position. 


Matrix Print Routines-FZCMPR 

FZCMPR contains the run-time routines which execute matrix operations for an array 

referenced in a MAT PRINT or MAT PRINT USING statement. FZCMPR performs 

PRINT (full zone format), PRINT (packed zone format), or PRINT USING operations 

for each element of the matrix referenced by the arithmetic dope vector at the top of 

the run-time stack: 

1. PRINT (full zone format)—Successive elements from the referenced matrix are 
printed, on a row-by-row basis, on the system print device; each element is 
printed as specified for full zone output. (Refer to “Print and Carrier Positioning— 
FZSPRT.”) 
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2. PRINT (packed zone format)—Successive elements from the referenced matrix 
are printed, on a row-by-row basis, on the system print device; each element is 
printed as specified for packed zone output. (Refer to “Print and Carrier 
Positioning—FZSPRT.”) 

3. PRINT USING—Successive elements from the referenced matrix are printed, ona 
row-by-row basis, on the system print device; each element utilizes the “next 
available” conversion specification in the currently active image. (Refer to “Print 
Using Image—FZUPRT.”’) The printer carrier is positioned, prior to output of the 
first array element, such that two blank lines exist between the first matrix row 
and the previous printed line. Each matrix row is separated from the previous row 
with a blank line, and the carrier is returned following output of the final matrix 
row. 


Miscellaneous Execution Subroutines 


Trace Line Numbers Subroutine—FZLINT 


FZLINT is called during the execution of every STH and IMH pseudo instruction when 
execution is in trace line number mode. The binary line number at label SINLNO is 
converted to a four-digit decimal integer and displayed on the system printer (matrix 
printer and/or CRT). 


Trace Variables Subroutine—FZVART 


FZVART is called when execution is in trace variables mode and the trace bit is on in a 
referenced arithmetic element or character field. Using the virtual address located at label 
I$PARM, the compiler symbol tables are searched to locate the variable name (symbol) 
assigned to the element or field. 

The variable name along with the current value or contents of the element or field is 
displayed on the system printer (matrix printer and/or CRT). If the element or field is 
within an array, the subscripts of the element or field are also displayed. 

The subscripts of the element or field are developed by this subroutine by incrementing 
the array’s base virtual address by the element or field length until it is equal to the virtual 
address of the element or field (I$PARM). 

The compiler symbol tables are searched in this order: 


Arithmetic variable (letter) symbol table (LVT) 
Character variable symbol table (CVT) 

Arithmetic variable (letter-digit) symbol table (LDT) 
Character array symbol table (CAT) 

Arithmetic array symbol table (NAT) 


Pie 


Virtual Memory Push/Pull Subroutine—FZZVMP 
e@ FZZVMP has two entry points: FZZVPS and FZZVPL. 


‘Entry FZZVPS: This entry causes all modified virtual memory pages in core to be 
written back to disk. All pages in core referenced with a modify switch in the lock and 
read only indicator table (located in the paging subroutine, IPGMDL) are written back 
to their respective locations in virtual memory. 


Entry FZZVPL: This entry causes all unlocked virtual memory pages in core to be 
re-read from disk virtual memory. All pages in core referenced with a lock switch in the 
lock and read only indicator table (located in the paging subroutine, IPGMDL) are read 
into core at their respective locations. 

Both procedures are automatically adjusted to process an expanded table and core 
paging area for 12k or 16k systems. 
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Interpreter Execution Overlay Programs 


Matrix Inversion/Determinant—#FISTD and #FILNG 


Two interpreter execution overlays reside in the system program file. Either one overlays 
the core-resident interpreter at X‘OE00’ to perform matrix inversion or determinant 
functions during execution of the BASIC program. #FISTD performs these functions in 
standard precision and #FILNG performs them in long precision. These overlays are 
called by the virtual-memory-resident execution subroutine, FVBINV/FVBDET (VM 


page X‘45’). 
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Random Number Generator—FOSRND and FOLRND (Figure 3-166. 1) 


The random number generator is a routine contained in #FMSTD (FFMLNG). It is 
paged into any available page in main storage above the interpreter. 

The following algorithm is used to generate the primary sequence of numbers: 

Ug=(U> + U3)modP 

where Ug, U3, and U3 are the numbers being calculated now, 2 times ago, and 
3 times ago, respectively, and P is the prime number. 
A subsequence is then obtained by taking every fourth element of the primary sequence. 
This subsequence provides the mantissa of the numerator in the expression: 

R=U/P 
where R is the output random number. The period for standard precision is 
approximately 10!5 and the period for long precision is approximately 1029. 


The initial values for the variables in Figure 3-166.1 are: 


Standard precision Long precision 

P = 6684673 P = 8206787908271 11 
X = 3926991 X = 1090507732665 76 
Y = 1442695 Y = 797882384626433 
Z = 8414709 Z = 832795028878064 


Find Disk Data File—#SFFIN (Figure 3-167) 


#SFFIN is a program called from the system program file, and overlays part of the core- 
resident interpreter (#INSTD or #INLNG). The calling routine must save the core-resi- 
dent interpreter in the system work area prior to loading #SFFIN. 

Using file directory 1, #SFFIN locates disk data files when they are first accessed at 
program execution time. For a permanent file, #SFFIN searches all disks on the system 
for the filename, password, and volume-ID specified. The status of the file is checked and 
the necessary information is placed in file directory 2. For a scratch file, the space speci- 
fied in the ALLOCATE command is sought for in all the null directories on the system 
and necessary information is returned in file directory 2. 

Before returning to the calling routine, #SFFIN starts I/O to begin the restore of the 
core-resident interpreter. Refer to the interpreter core map (Figure 3-163). 
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FOSRND 


or 
FOLRND 


Set first 
entry 
switch on, 


Initialize 
~X, Y, and 
Zz 


Initialize 
U with 
argument. 


Argument 
in stack 


Initialize 


Move U 
to stack. 


Make U 
floating 
point. 


Set value 
to floating 
point zero. 


Fourth 
loop 


Figure 3-166.1, Random Number Generator (FQSRND, FQLRND) Flowchart 
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#SFFIN 


No 


SFF100 


SEARCH FOR FILE 


SET UP D2 


, Set precision indicator. 
. Convert to physical disk 


addresses. 
. Save file length. 


. SEARCH FOR NULL SPACE 


1, Load 1/0 routines (LOADR). 

2. Prime SFINDF and search for 
file. 

3. Exit to $CAERK if: 


1. Search volume-ID table for 
disk with library. 

2. Call SURCHN to search null 

directory for scratch disk files space. 


a) File not found, 
b) Password not found, 
c) Not data file. 


All 

Scratch 
Files 

Checked 


SFF200 


SET INDICATORS 


1. Set indicators for input files 
that are: 
a) Keyboard-generated files, 
b) One-star library files, 
c) Protected or pooled files. 
2. Set indicators for input and 
output program-generated files 
that are not protected or pooled. 


Yes 


SET INDICATORS 
Set active scratch file indicators, 


o> = | 
MODIFY DATE F SFADFR 


Update modification date 


CLOSE FILE 


Close file. 


1: 
2. Rewrite disk block. 


Figure 3-167, Find Disk Data File (#SFFIN) Flowchart 
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Logical 1OCS for Disk Data Files-#SFLOA (Figure 3-168) 


#SFLOA is a program called from the system program file to overlay the core-resident 
interpreter (#INSTD or #INLNG). The calling routine must save the core-resident inter- 
preter in the system work area prior to loading #SFLOA. 

#SFLOA executes multiple sector transfer operations between allocated buffers in 
virtual memory and the data file located in the file library. Output is transferred to the 
file library; input is transferred to virtual memory. Before returning to the calling routine, 
#SFLOA starts I/O to begin the restore of the core-resident interpreter. All actual disk 

ee 1/O is performed by branching to $DISKN in the system nucleus. Refer to the interpreter 
core map (Figure 3-163). 


#SFLOA 


INITIALIZATION 


Set up exit to return to calling location. 
Set file base disk address in DL2RAD. 

. Set up the DPL to reference the saved file. 
, Set up the virtual memory disk address. 


who 


#SFLOA 
Called 
By 


SFPUTR 


SFGETR 


SFL105 


TRANSFER DATA BLOCKS FROM 
VIRTUAL MEMORY TO FILE LIBRARY 


. If not end-of-file, tack an ‘end-of-file’ sector 
to buffer, 
2. Search page table for buffer pages. 

a) !f not in core, call DL4ICS to read it 
into #SFLOA buffer. 

b) If in core, call SFL700 (see below) to 
calculate core page address; move page 
to #5FLOA buffer, 

. Call DL21CS to write to file library. 


TRANSFER DATA BLOCKS FROM THE 
FILE LIBRARY TO VIRTUAL MEMORY 


1. Call DL2ICS to read data blocks from file library. 

2. Call DL4ICS to write data blocks to virtual 
memory. 

3, Search page table for buffer pages: 
if in core, cal! SFL700 (see below) to calculate 
core page address; move page from #SFLOA 
buffer to VM core page location. 


Return to 
Calling Sequence 
(SFPUTR or SFGETR) 


SFL700 
DETERMINE CORE PAGE LOCATION 
. Save return, 


, Calculate physical core address. 
. Clear the page status indicators. 


. Calculate position in core page usage table. 

. Set usage counter to zero. 

. Clear the virtual memory page in core indicator in 
the page table. 

. Return to calling location. 


BR1230 


Figure 3-168. Logical IOCS for Disk Data Files (#SFLOA) Flowchart 
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Label Trace for ADD Pseudo Instruction 


The following labels trace the execution of the ADD pseudo instruction. This trace 
illustrates an instruction executed entirely by core-resident routines. 


1. INTXEC—The op code value for the ADD pseudo instruction (X‘06’) indexes the 
op code execution branch address table INTBAT). 

2. INT100—Pass control to a core-resident execution subroutine. In this case, the 
entry point is ICFADD. 

3. | ICFADD—Pass control to the core-resident floating point add subroutine 
(FDIADD). 

4. FDIADD—Perform floating-point addition of the top two run-time stack elements. 
IZSTAK references the run-time stack. 

5. | ICFO20—Pass control back to the interpreter executive at INTAD1. 

6. INTAD1—Increment the pseudo instruction address register (INTIAR) by one 
byte (length of ADD instruction) in preparation for the next sequential pseudo 
instruction. 

7, | INTXEC—Access the next pseudo op code. 


Label Trace for GET Pseudo Instruction 


The following labels trace the execution of the GET pseudo instruction, Prior to this 
GET, an external data file was activated by an ADF pseudo instruction. This trace 
illustrates an instruction that requires paging of subroutines from virtual memory. This 
example also includes a save/overlay/restore of the core-resident interpreter. Labels 
marked with * are located in the core-resident interpreter. Unmarked labels are located 
in virtual-memory-resident execution subroutines. 


1, *INTXEC—The op code value for the GET pseudo instruction (X‘52’) indexes 
the op code execution branch address table (INTBAT). 

2. *INT100—Pass control to a core-resident execution subroutine. In this case, the 
entry point is ICVFIO, 

3. *ICFVIO—Branch to the paging subroutine. The DC following the branch instruc- 
tion is the virtual entry point in the required virtual memory page. 

4. *IPGCAL—Read and lock page X‘1A’ into the paging area, This page contains the 
execution subroutine IDFILE. 

5, | IDFILE—Pass control to the routine at label IDFGET. 

6. IDFGET—Branch to the paging subroutine. ISCALL is equated to IPGCAL. The 
virtual address operand of the GET pseudo instruction was stored in the DC 
following the branch to ISCALL. In this case, the virtual address operand equals 
X‘2100’, 

7, *IPGCAL—Read and lock page X‘21’ into the paging area. This page contains the 
execution subroutine SFGETR. 

8. SFGETR—Check file usage and device type. 

9. SFG290—Branch to the paging subroutine (ISCALL). 

10. *IPGCAL—Read and lock page X‘22’ (second page of SFGETR). 

11. SFGBS2—Assuming the input buffer is empty, branch to the paging subroutine 
(I$CALL),. 

12. *IPGCAL—Read and lock page X‘23’ (third page of SFGETR). 

13. SFGBS3—Assume the input buffer must be filled. 

14. SFG780—Save the core-resident interpreter on cylinder 9 of the system work 
area, 

15. SFG790—Load #SFLOA at X‘OF00’, via SBLOAD in the system nucleus. 


file in the file library to the pages in virtual memory assigned as input buffers for 
this file. (See Figure 3-168.) The core-resident interpreter is restored to core. 
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PSEUDO INSTRUCTION SET 


SFG795—Wait for I/O complete on the interpreter restore operation; then deter- 
mine the data file type. 

SFG900--Branch to the paging subroutine. ISRTRN is equated to IPGRTN. 
*IPGRTN—Unlock page X‘23’ and return to the calling page, X‘22’. 
SFG450—Move the data item to the run-time stack. 

SFG695—Branch to the paging subroutine (I$RTRN). 

*IPGRTN—Unlock page X‘22’ and return to the calling page, X‘21’. 
SFG295—Branch to the paging subroutine. ISUNLK is equated to IPGULK. 
IPGULK—Unlock directory 2 (page number X‘01’) and return to the same page, 
X‘21’. 

SFG295+9—Branch to the paging subroutine (ISRTRN). 

*IPGRTN—Unlock page X‘21’ and return to the calling page, X‘1A’. 

IDF 120—Establish the virtual address destination and the data element type. 
IDF 140-—Branch to the core-resident element unstacking subroutine. ISUSTK is 
equated to JUSTAK. 

*TUSTAK—Branch to the paging subroutine. The destination virtual address in 
the run-time stack is referenced by ISVADR. The data element, also in the run- 
time stack, is referenced by @XR. 

*]PGMOD—Read the page referenced by ISVADR into the paging area. Read- 
only bit is set for the page. 

*TUSO12—Move the data element from the run-time stack to the referenced 
displacement (second byte of ISVADR). 

*TUS150—Return to page X‘1A’, 

IDF150—Load @XR with the return address in the interpreter executive. ISXAD3 
is equated to INTAD3. 

IDF990—Branch to the paging subroutine ($RTRN). 

*IPGRTN—Unlock page X‘1A’ and return to the interpreter executive. 
*INTAD3—Increment the pseudo instruction address register (INTIAR) by three 
bytes (length of the GET instruction) in preparation for the next sequential pseudo 
instruction. 

*INTXEC—Access the next pseudo op code. 


Pseudo instructions make up the pseudo machine language and invoke the execution of 
preassembled machine language execution subroutines to perform the functions indi- 
cated by the pseudo instruction name, Figure 3-169 contains a table of the mnemonic 
operation codes, in alphabetic order, for all pseudo machine instructions. Figure 3-170 
shows the pseudo instruction formats. 

Detailed descriptions of the pseudo instructions follow these two figures, which should 
be used as references in following the descriptions. The instructions are described in 
order as follows: 


NAA AYWNS 


Arithmetic operations 
Function call operations 

1/O operations 

Logical operations 

Stack and unstack operations 
Miscellaneous operations 
Nonexecutable operations 


Program Organization 3-227 


Licensed Material—Property of IBM 


3-228 


4 Length 
M 
inemonic (byigel 
ADD 


Hexadecimal 
* 06 Add 


XX Activate external data file 
VADR 
VADR 
VADR CC 
VADR 


Branch and suppress execution 


Branch unconditionally 


Branch on condition 


O PW WN = 


Branch and delete function 
entry 


Branch to stacked address 


Close external data file 
Compare character elements 
Compare floating point values 
Compute stacked address 
Define constant address 
Define data Jinkage 
Divide 
Define work area 


End of program 


End of page 
Function catl—indirect 


Function call—no argument 


Functional call—one argument 
Initiate FOR loop 

Input data element 

Halt execution 
Image statement header 
Initiate keyboard input 
Single matrix function call 


Double matrix function call 


Triple matrix function call 
Multiply 

Matrix scalar multiply 
Negate 

Perform next step 

Print and space carrier 
Print using image 

Output data element 
Exponentiate 

Restore internal data file pointer 
Reset external data file pointer 
Stack vector array element address 


Stack matrix array element address 


WwW? = AFnNNN WwW FWA WBHWOWBNWABAHWWwWwWWwHABANHAwWWN BBA a 


Stack character array element 
address 


Stack character array field 


BR1231.1A 


Figure 3-169. Pseudo Instruction Reference List (Part 1 of 2) 
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Length Hexadecimal 
(bytes) 


Stack arithmetic array descriptor 
Stack arithmetic array descriptor 
Stack arithmetic array descriptor 
Stack arithmetic vector element 
Stack arithmetic matrix element 
Stack virtual address 

Stack character field 

Stack floating point value 
Statement header 

Stack execution control code 
Subtract 

Supervisor cajl 


Unstack character element 


3 
3 
3 
3 
3 
3 
3 
3 
2 
1 

1 

2 
1 


Unstack floating point element 


no operands 

2-byte virtual address 

1-byte execution control code 
1-byte binary execution count 
2-byte binary statement line number 
1-byte branch condition code, 


BR1231.2A 


Byte 1 Byte 2 Byte 3 Byte 4 


= 
oO 
zo} 
QO 
° 
Qa 
C) 


wo 


BR1232 


Figure 3-170. Pseudo Instruction Formats 
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Arithmetic Operations 


Add 


BR1233 


The floating-point value at the top stack location (the top of the run-time stack) is added 
to the floating-point value at the second stack location. Both values are deleted from the 
stack and the sum (in floating-point notation) is placed at the top stack location. 


Example: 


PMC Sequence Run-Time Stack 


STF VADR of B 


» ADD After Y A+B 


Top of Stack 


BR1234 


Subtract 
SUB 


0 7 


BR1235 


The floating-point value at the top stack location is subtracted from the floating-point 
value at the second stack location. Both values are deleted from the stack and the dif- 
ference (in floating-point notation) is placed at the top stack location. 


Example: 
PMC Sequence Run-Time Stack 


STF VADR of B 


Top of Stack 


BR1236 
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Multiply 
MPY 


0 7 


BR1237 


The floating-point value at the second stack location is multiplied by the floating-point 
value at the top stack location. Both values are deleted from the stack and the product 
(in floating-point notation) is placed at the top stack location. 


Example: 


PMC Sequence 


STF VADR of A 
STF VADR of B 
»>MPY 


Divide 
DIV 


0 7 


BR1239 


Run-Time Stack 


Before 


After 


Top of Stack 


BR1238 


The floating-point value at the second stack location is divided by the floating-point 
value at the top stack location. Both values are deleted from the stack and the quotient 
(in floating-point notation) is placed at the top stack location. 


Example: 


PMC Sequence 


STF VADR of A 
STF VADR of B 
»DIV 


Run-Time Stack 


Top of Stack 


BR1240 
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»PWR After 


Exponentiate (Power) 


BR1241 


The floating-point value at the second stack location is raised to the power specified by 
the floating-point value at the top stack location. Both values are deleted from the stack 
and the result is placed at the top stack location. 


Example: 


PMC Sequence Run-Time Stack 


STF VADR of B 


BR1242 


BR1243 


The floating-point value at the top stack location is negated. The original value at the top 
stack location is deleted and the negated value is placed at the top stack location. 


Example: 

PMC Sequence Run-Time Stack 

STF VADR of A Before ny. 
»NEG 


After Y 


Top of Stack 


BR1244 


Licensed Material—Property of IBM 


Matrix Scalar Multiply 


MSM 
0 70 7 


BR1245 


The third stack location contains an arithmetic array descriptor that defines the matrix 
to contain the product elements. These elements are the result of multiplying the 
matrix defined by the arithmetic array descriptor at the first (top) stack location, by 
the floating-point value at the second stack location. VADR is the virtual entry point to 
a subroutine in virtual memory that performs the operation. The multiplier value and 
both array descriptors are deleted from the stack after the function is executed. 


Example: 
BASIC Statements PMC Sequence 
0100 MAT C=(A)*M STH 0100 
SDO VADR of Descriptor for C 
STF VADR of A 
SDO VADR of Descriptor for M 
»MSM VADR of Subroutine 
0110 (statement) STH 0110 


Run-Time Stack 


Before Y Desc (C) Desc (M) 


After 


Top of Stack 


Desc—Array Descriptor (array dope vector) 
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Function Call Operations 


Function Call—No Argument 


FNO 
(0) 70 70 7 


BR1247 


No argument is required for the execution of this pseudo instruction. VADR is the 
virtual entry point to a subroutine in virtual memory that performs the function. The 
floating-point value (R), resulting from execution of the function, is placed at the top 
stack location. Refer to the intrinsic function virtual address equates in the program 
listing “System Equates” ($SV$EQU in #TEQU2). An example of a function performed 
by this instruction is the “no argument” form of intrinsic function RND. 


Example: 
PMC Sequence Run-Time Stack 
»FNO VADR of Subroutine Before Y 


Top of Stack 


BR1248 


Function Call—One Argument 


FN1 
(0) 70 70 7 


BR1249 


The floating-point value at the top stack location is used as the argument for the func- 
tion. VADR is the virtual entry point to a subroutine in virtual memory that performs 
the function. The floating-point value (R), resulting from execution of the function, 
replaces the argument (A) at the top stack location. Refer to the intrinsic function 
virtual address equates in the program listing “System Equates” ($V$EQU in #TEQU2). 
An example of a function performed by this instruction is computation of the tangent 
(TAN) of the argument, the argument being expressed in radians, 


Example: 
PMC Sequence Run-Time Stack 


»FN1 VADR of Subroutine 


Top of Stack ————___-__—______ 
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Function Call—Indirect 


FCI 
(0) 70 70 7 


BR1251 


The floating-point value at the top stack location is used as the argument for the user 
function whose linking address is defined at VADR. The value at the top stack location 
is deleted, and control is transferred to the pseudo instruction which begins the user 
function execution. Linkage is established such that the function execution sequence 
returns control to the pseudo instruction following the FCI. 

Prior to user function execution, the user function activity table is searched for an 
entry that matches VADR. When no match occurs, VADR is added to the table. When 
a match does occur, or when the table size is exceeded, a terminal error condition is 
indicated. A match in the table occurs when user function is referenced within the defini- 
tion of that same function. 


Example Using FCI, BRD, and DWA Pseudo Instructions: 


BASIC Statements PMC Sequence 

0100 DEF FNA(D)=... STH 0100 
BRA VADR of 0110 (bypass) 
BRA VADR% (return linkage) 
DWA NN 


(argument) 


BRD VADR 
0110 ... FNA(B)... STH 0110 


STF VADR of B (argument) 
» FCI VADR of Link Address 


Run-Time Stack 


Xx 

FCI Ll 
x 

FCI 


Top of Stack 


* This VADR (return linkage) is established at execution time by the FCI function execution 


subroutine. 
** “After refers to the logical stack condition immediately after the FCI instruction execution, 
but before the execution of the DEF statement expression. 
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Single Matrix Function Call 


MF1 
0 70 70 7 


BR1253 


The arithmetic array descriptor at the top stack location references the single matrix 
argument for the matrix function to be performed. VADR is the virtual entry point to 

a subroutine in virtual memory that performs the function. The array descriptor is 
deleted from the top stack location after the function is executed. Refer to matrix func- 
tion virtual address equates in the program listing “System Equates” ($V$EQU in 
#TEQU2), An example of a function performed by this instruction is matrix I/O 
operations. 


Example: 
BASIC Statements PMC Sequence 
0100 MAT INPUT A STH 0100 
SDO VADR of Descriptor for A 
» MF1 VADR of Subroutine 
0110 (statement) STH 0110 


Run-Time Stack 


Before Y¥ | x | Desc (A} 


Top of Stack 


Desc—Array Descriptor (array dope vector) 


BR1254 
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Double Matrix Function Call 


MF2 
0 70 70 7 


BR1255 


The arithmetic array descriptors at the second and top stack locations reference the two 
matrix arguments for the matrix function to be performed. VADR is the virtual entry 
point to a subroutine in virtual memory that performs the function. Both array descrip- 
tors are deleted from the stack after the function is executed. Refer to matrix function 
virtual address equates in the program listing “System Equates” ($V$EQU in #TEQU2), 
An example of a function performed by this instruction is matrix assignment. 


Example: 
BASIC Statements PMC Sequence 
0100 MAT A=B STH 0100 
SDO VADR of Descriptor for A 
SDO VADR of Descriptor for B 
» MF2 VADR of Subroutine 
0110 (statement) STH 0110 


Run-Time Stack 


Before Y Desc (A) Desc (B) 


Top of Stack 


Desc—Array Descriptor (array dope vector) 
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Triple Matrix Function Call 


MF3 
(0) 70 70 #3 


BR1257 


The arithmetic array descriptors at the third, second, and top stack locations reference 
the three matrix arguments for the matrix function to be performed. VADR is the virtual 
entry point to a subroutine in virtual memory that performs the function. All three array 
descriptors are deleted from the stack after the function is executed. Refer to matrix 
function virtual address equates in the program listing “System Equates” (SV$EQU in 
#TEQU2). An example of a function performed by this instruction is matrix subtraction. 


Example: 

BASIC Statements PMC Sequence 

0100 MAT C = A-B STH 0100 
SDO VADR of Descriptor for C 
SDO VADR of Descriptor for A 
SDO VADR of Descriptor for B 

» MF3 VADR of Subroutine 
01 10 (statement) STH 0110 


Run-Time Stack 


Before Y Desc (C) Desc (A) Desc (B) 


Top of Stack 


Desc—Array Descriptor (array dope vector) 


BR1258 
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Input/Output Operations 


Input Data Element 


GET 
X'B2’ VADR 
0 70 70 7 


BR1259 


The next sequential data element entered from a file of data elements is stored in virtual 
memory at the virtual address at the top stack location. VADR is the virtual entry point 
to a subroutine in virtual memory that performs the input operation, The referenced 
virtual address is deleted from the stack. 

This pseudo instruction is generated for GET, READ, and INPUT BASIC program 
statements, If the GET is to reference an external data file, it must be preceded by an 
ADF (activate external data file) pseudo instruction. If the GET is to reference the 
internal data file or the system keyboard, it need not be preceded by an ADF instruction. 


Example: 


PMC Sequence Run-Time Stack 


STA VADR Before ¥: VADR 


» GET VADR of Subroutine 


Top of Stack 


BR1260 


Output Data Element 


PUT 
0 70 7 


BR1261 


The data element or field at the top stack location is written in the next sequential loca- 
tion in the currently active data file. This external data file was activated by the last 
executed ADF pseudo instruction. XX defines the type of data (X‘02’ = arithmetic 
element; X‘04’ = character field). The data element or field is deleted from the top stack 
location. 


Example: 
PMC Sequence Run-Time Stack 


ADF (see ADF) Before Y 


STF VADR of A$ 


Top of Stack 


BR1262 
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Initiate Keyboard Input 


INI 
[eT | 
0 70 7 


BR1263 


This pseudo instruction is generated for the INPUT BASIC statement to initiate an I/O 
operation for input from the keyboard. The execution control codes contained in stack 
locations 1 (top of the stack) through NN are parameters to the initiate input subroutine 
in virtual memory. They are used to verify the data type and number of elements entered 
by the user on the keyboard. Each of the referenced execution control codes is deleted 
from the stack. 

The format of the execution control code, in the STX instructions preceding the INI, 
is: 
Bit 0 = 0 for arithmetic elements; | for character fields, 
Bits 1-7 = count of the consecutive elements of the same type. 


Example: 
BASIC Statement PMC Sequence 


0100 INPUT A, B, C, A$, B$, D 


STX 03 (A, B, C) 


STX 82 (A$, B$) 
STX 01 (D) 


»INI 03 (count of preceding STX instructions) 


Run-Time Stack 


Top of Stack 
BR1264 


Activate External Data File 


ADF 
0 70 7 


BR1265 


The external data file referenced by the character literal in the top of the run-time 
stack is activated. The displacement to the file directory 2 entry for the referenced 

file is calculated, the file is tested for validity, and prepared for either input or output. 
XX equals X‘01’ when the referenced file is activated for output and equals X‘00’ when 
the referenced file is activated for input. 
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Example: 

BASIC Statement PMC Sequence 

0100 GET ‘ABC’, X , 
STC VADDR of ‘ABC’ 

rm ADF 00 


Run-Time Stack 


Before Y 


Attar y 
Top of Stack 


Restore Internal Data File Pointer 


BR2674 


BR1266 


The internal data file pointer is restored to reference the first data element or field in 
the internal data file. Refer to “Define Constant Address” (DCA) and “Define Data 
Linkage” (DDL). These instructions define the data elements and/or fields in the internal 
data file. The next GET (to the internal data file) that is executed references the first 
data element or field in the internal data file. 

The contents of the run-time stack are unaffected by the execution of this pseudo 
instruction. 


Reset External Data File Pointer 


RST 
0 7 


BR1267 


The external data file pointer, for the currently activated external data file, is reset to 
reference the first data element or field in that file. This external data file was activated 
by the last executed ADF pseudo instruction. The next GET or PUT (to that external 
data file) that is executed references the first data element or field in that external data 
file. 

The contents of the run-time stack are unaffected by the execution of this pseudo 
instruction, 


Close External Data File 


CLS 
fe) 7 


BR1268 


The currently activated external data file is closed. The associated external data file 
pointer is reset to reference the first data element or field in that file. Refer to “Reset 
External Data File Pointer” (RST). Closing an external data file allows that file to be 
activated for input or for output. 

The contents of the run-time stack are unaffected by the execution of this pseudo 
instruction, 
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Print and Space Carrier 


PRS 
(0) 70 7 


BR1269 


The data element at the top stack location is output on the system printer, or the sys- 
tem printer carrier is positioned, under control of parameter XX. When XX specifies 
data element output, that element is deleted from the top stack location. 

The possible XX codes (hexadecimal) and the functions they perform are: 


XX Function 
01 Print and space suppress 
02 Print and space to long zone 
03 Print and space to short zone 
04 Print and carrier return 
05 Space to long zone 
06 Space to short zone 
07 Carrier return 
08 Conditional carrier return 
Example: 
PMC Sequence Run-Time Stack 
STF VADR of A Before 
»PRS XX = 01-04 
After 
Top of Stack 

PMC Sequence Run-Time Stack 


»PRS XX = 05-08 Before Y 
—— 


Top of Stack 


BR1270 
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Print Using Image 


PRU 
0 70 7 


BR1271 


The data element at the top stack location is output according to the current image, or 

the current image is output, on the system printer under control of parameter XX. When 

XX specifies data element output, that element is deleted from the top stack location. 
The possible XX codes (hexadecimal) and the functions they perform are: 


XX Function 


01 Establish null image specification. 

04 Establish first image character string segment. 

05 Establish secondary image character string segment. 

02 Statement contains no data list. 

06 Print arithmetic or character expression, including first constant established 
for a character string but excluding a null character string (“’). 

07 Print any constant established for a character string except for the first 
constant in that string series. 

03 Print a null character string (‘’). 

12 Same as code 02 except indicates final PRU instruction for this list. 

16 Same as code 06 except indicates final PRU instruction for this list. 

17 Same as code 07 except indicates final PRU instruction for this list. 

13 Same as code 03 except indicates final PRU instruction for this list. 

Example: 

PMC Sequence Run-Time Stack 

STF VADR of A$ Before 


»PRU XX = 06 
After 


Top of a 


PMC Sequence Run-Time Stack 


»PRU XX = 04 Before Ms 


Top of Stack 


BR1272 
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Logical Operations 


Compare Floating Point Values 


CMF 


0 7 
BR1273 


The floating-point value at the second stack location is compared algebraically to the 
floating-point value at the top stack location. A compare condition code is set specifying 
greater than, equal to, or less than. Both of the floating-point values are deleted from the 


stack. 


Example: 


TFAH=B.... 
PMC Sequence Run-Time Stack 


STF VADR of B 


Top of Stack 


BR1274 


Compare Character Elements 


BR1275 


The character field at the second stack location is compared with the character field at 
the top stack location. A compare condition code is set specifying a collating sequence 
greater than, equal to, or less than. Both of the character fields are deleted from the 


stack, 

Example: 

If A$ = BS... 

PMC Sequence Run-Time Stack 


STC VADR of B$ 


»>CMC After Y 


Top of Stack 


BR1276 
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Branch On Condition 


0 70 70 70 7 


BR1277 


Control is transferred to that pseudo instruction which begins at VADR when code CC 
agrees with the current compare condition. If the compare condition is not met, control 
is passed to the next sequential pseudo instruction. 

The possible CC codes (hexadecimal) and the functions they perform are: 


CC Function 


82 Branch low 

84 Branch equal 

88 Branch high 

92 Branch not low 
94 Branch not equal 
98 Branch not high 


The BRC pseudo instruction always follows a CMF or CMC pseudo instruction. The 
contents of the run-time stack are unaffected by the execution of the BRC pseudo 
instruction. 


Branch Unconditionally 


BRA 


70 7 


f=) 
~~ 
jo] 


BR1278 


Control is transferred unconditionally to the pseudo instruction that begins at VADR. 
The contents of the run-time stack are unaffected by the execution of this pseudo 
instruction, 


Branch and Delete Function Entry 


BRD. 
0 70 70 7 


BR1279 


The entry at the top of the user function activity table is deleted, and control is trans- 
ferred to the pseudo instruction that begins at VADR. Refer to “Function Call—Indirect 
(FCI). 

The contents of the run-time stack are unaffected by the execution of this pseudo 
instruction. 


9 
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Branch and Suppress Execution 


BNX 
(0) 70 70 7 


BR1280 


Control is transferred to the pseudo instruction that begins at VADR. The first BRA 
instruction encountered after the transfer of control is suppressed (not executed). 

The contents of the run-time stack are unaffected by the execution of this pseudo 
instruction. 


Example: 
BASIC Statements PMC Sequence 
0100 PRINT USING 120... STH 0100 

STA VADR of (A) 

»BNX VADR of 0120 

0110... STH 0110 
0120 : (image) STH 0120 

*BRA VADR of 0130 

BRS (VADR of @) is stacked) 
0130... STH 0130 


* This BRA is deactivated by the BNX instruction, 


BR1281 


Branch to Stacked Address 


BRS 
0 70 70 7 


BR1282 


Control is transferred to the pseudo instruction that begins at the virtual address at the 
top stack location. The virtual address is deleted from the top stack location. 


Example: 


PMC Sequence Run-Time Stack 


STA VADR Before Y VADR 


»BRS i 
F Top of Stack 


BR1283 
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Initiate FOR Loop 


FOR 
0 70 70 7 


BR1284 


This instruction is always paired with a trailing NXT instruction. VADR is the virtual 
address of the loop control variable. The floating-point value at the third stack location 
(the loop control initial value) is saved in a control variable work area. The floating-point 
values at the second and top stack locations (the final value and increment, respectively) 
are stored in a DWA-defined work area following the NXT instruction in the PMC 
sequence. The three floating-point values are deleted from the stack and control is trans- 
ferred to the NXT instruction such that control variable retrieval and incrementation are 
bypassed, 

The following example illustrates two nested levels of FOR-NEXT BASIC statement 
pairs. 
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Example Using FOR, NXT, and DWA Pseudo Instructions: 


BASIC Statements PMC Sequence 


0100 FORD=C TOBSTEPA STH 
STF 

STF 

STF 

»FOR 

NXT 

DWA 


(8 bytes; limit B) 


(8 bytes; increment A) 


0110 STH 
(statements) 
0170 
0180 FORH=G TOF STH 
STEPE STE 
STF 
STF 
FOR 
NXT 
DWA 


(8 bytes; limit F) 
(8 bytes; increment E) 


0190 STH 0190 
(statements) 
0220 
0230 NEXT H STH 0230 
BRA VADR to Continue Loop H 
0240 STH 0240 
(statements) 
0280 
0290 NEXT D STH 0290 
BRA VADR to Continue Loop D 
0300 (statement) STH 0300 


Run-Time Stack (first FOR instruction) 


0100 

VADR of C 

VADR of B 

VADR of A 

VADR of D 

VADR of Loop D Exit 
16 


0110 


0180 

VADR of G 

VADR of F 

VADR of E 

VADR of H 

VADR of Loop H Exit 
16 


4 


Top of Stack 
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Perform Next Step 


NXT 
0 70 70 wf 


BR1286 


This instruction is always paired with a preceding FOR instruction, and always precedes 
a DWA instruction that defines a work area containing the final value and increment for 
the loop. Refer to “Initiate FOR Loop” (FOR). The loop control variable stored at the 
VADR of the FOR instruction is placed in a control variable work area and modified 
using the loop increment. When the working value of the control variable exceeds the 
final value, control is transferred to the pseudo instruction that begins at the VADR of 
the NXT instruction (exit). If the working value of the control variable does not exceed 
the final value, it is stored at the VADR of the FOR instruction (loop control variable) 
and control is passed to the STH instruction of the next sequential statement. 

The contents of the run-time stack are unaffected by the execution of the NXT pseudo 
instruction. 


Stack and Unstack Operations 


"Stack Floating Point Value 


STF 
0 70 70 7 


BR1287 


The floating-point value referenced by VADR is moved from virtual memory to the top 
stack location, The length of the element is precision dependent. The actual data element 
is moved to the stack. 


Example: 
PMC Sequence Run-Time Stack 
——___—_—_—_- 
»STF VADR ofA 
After Y x A 
tt 


Top of Stack 


BR1288 
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Stack Arithmetic Vector Element 


SF1 
0 70 70 7 


BR1289 


The floating-point value at the top stack location is truncated and converted to a binary 
indexing value which is used to reference an element in the one-dimensional arithmetic 
array. VADR is the virtual address of the descriptor (array dope vector) for this array. 
The indexing value at the top stack location is replaced by the floating-point array ele- 
ment. The length of the element is precision dependent. The actual data element is 
moved from the array to the stack. 


Example: 
PMC Sequence Run-Time Stack 
STF VADR of Index Value Before Y x Index 


»SF1 VADR of Descriptor for A 


After Y | x | 5 | 


Top of Stack 
Desc (A) 


a 


Vector Array A 


Element Address = Base + (Index * Element Length) 


BR1290 
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Stack Arithmetic Matrix Element 


SF2 : 
0 70 70 7 


BR1291 


The floating-point values at the second stack location and at the top stack location are 
truncated and converted to binary indexing values. Respectively, these two indexing 
values define row and column values required to reference a single element in a two- 
dimensional arithmetic array. VADR is the virtual address of the descriptor (array dope 
vector) for this array. The two indexing values at the top stack location are replaced by 
the floating-point array element. 


Example: 
PMC Sequence Run-Time Stack 


STF VADR of Row Index Before Y Row 


STF VADR of Column Index 
»SF2 VADR of Descriptor for A After 


Top of Stack 


Desc (A) 
D1 D2 Base 


Matrix Array A 


Element Address = Base + ((Row~- 1) D2 + Column) * Element Length, where D2 is the array 
column dimension and element Jength is precision dependent, 


BR1292 
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Unstack Floating Point Element 


BR1293 


The floating-point value at the top stack location is stored in virtual memory at the 
address contained in the second stack location. The value and the referenced address 
are deleted from the stack. 


Example: 
PMC Sequence Run-Time Stack 


STA VADR of VM Location Before Y VADR 
STF VADR of A After Y 


» USF 
Top of Stack 


BR1294 


Stack Character Field 


STC 
0 70 70 7 


BR1295 


The character field referenced by VADR is moved from virtual memory to the top stack 
location. The length of a character field is 19 bytes. The actual content of the field is 
moved to the stack. 


Example: 
PMC Sequence Run-Time Stack 


Top of Stack = 


»STC VADR of A$ 


BR1296 
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Stack Character Array Field 


sCc1 
10] 70 70 7 


BR1297 


The floating-point value at the top stack'location is truncated and converted to a binary 
indexing value which is used to reference a field in a character array. VADR is the virtual 
address of the descriptor (array dope vector) for this character array. The indexing value 
at the top stack location is deleted and the character array field is moved to the top 
stack location. The length of the character array field is 19 bytes. The actual content of 
the field is moved to the stack. 


Example: 


PMC Sequence Run-Time Stack 


»SC1VADR of Descriptor for A$ 


Top of Stack 


Desc (A$) 


Base 


Character Array A$ 
eC 


Element Address = Base + (Index * 19) 


BR1298 
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Unstack Character Element 


USC 
0 70 7 


BR1299 


The character field at the top stack location is stored in virtual memory at the virtual 
addresses contained in stack locations 2 through NN+1. The character field and all of 
the referenced addresses are deleted from the stack. 


Example: 

0100 LET A$, B$, C$ = D$ 

PMC Sequence Run-Time Stack 

STH 0100 

STA VADR of A$ Before x | vaoras| vaores| vaorcs| os | 
STA VADR of B$ oS 


NN = 03 
STA VADR of C$ 


STC VADR of D$ 
After xX 
» USC 03 
[eee aa of Stack 


BR1300 


Stack Arithmetic Array Descriptor 


SDO 
T | 
X'2E' VADR 
0 70 70 7 


BR1301 


The arithmetic array descriptor (array dope vector) referenced by VADR is moved to the 
top stack location. Arithmetic array dope vectors are eight bytes in length. The actual 
contents of the dope vector are moved to the stack. 


Example: 


PMC Sequence Run-Time Stack 


»SDO VADR of Descriptor 


BR1302 
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Stack Arithmetic Array Descriptor (Redimension 1) 


SD1 
0 70 70 7 


BR1303 


The floating-point value at the top stack location is truncated and converted to a binary 
array dimension. This new dimension replaces the single dimension (D1) in the arithmetic 
array descriptor (array dope vector) referenced by VADR. The binary array dimension 
value is deleted from the stack. The redimensioned arithmetic vector descriptor is moved 
to the top stack location. (The descriptor is also redimensioned in virtual memory.) 

Arithmetic array dope vectors are eight bytes in length. The actual contents of the 
redimensioned dope vector is moved to the stack. 


Example: 
PMC Sequence Run-Time Stack 

Top of Stack 
STF VADR of New D1 Before 


»SD1 VADR of Descriptor 


After Y Desc (redimensioned) 


Desc 


BR1304 
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»SD2 VADR of Descriptor After Y 


Stack Arithmetic Array Descriptor (Redimension 2) 


SD2 
10] 70 70 7 


BR1305 


The floating-point value at the second stack location is truncated and converted to a 
binary array row dimension (D1). The floating-point value at the top stack location is 
truncated and converted to a binary array column dimension (D2). These new dimen- 
sions replace D1 and D2 in the arithmetic array descriptor (array dope vector) referenced 
by VADR. Both binary array dimension values are deleted from the stack. The redimen- 
sioned arithmetic matrix descriptor is moved to the top stack location. (The descriptor 
is also redimensioned in virtual memory.) 

Arithmetic array dope vectors are eight bytes in length. The actual contents of the 
redimensioned dope vector are moved to the stack. 


Example: 


PMC Sequence Run-Time Stack 
Top of Stack 


P 
STF VADR of New D2 
Desc (redimensioned) 


|Top of eal] 


Desc : 


BR1306 
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Stack Virtual Address 


STA 
0 70 70 7 


BR1307 


The virtual address in the second and third bytes (VADR) is moved to the top stack 
location. 


Example: 
PMC Sequence Run-Time Stack 
STA VADR 


Top of Stack 


BR1308 


Stack Vector Array Element Address 


SA1 
(¢) 70 70 7 


BR1309 


The floating-point value at the top stack location is truncated and converted to a binary 
indexing value. This indexing value is used to determine the virtual address of a single 
element in a one-dimensional arithmetic array. VADR is the virtual address of the 
descriptor (array dope vector) for this array. The indexing value at the top stack location 
is replaced by the virtual address of the referenced array element. 


Example: 
PMC Sequence Run-Time Stack 


STF VADR of {ndex Value Before Y x 
»SA1 VADR of Array Descriptor 


Top of Stack 


Desc 


Base + (Index « Element Length) = Addr 


BR1310 
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Stack Matrix Array Element Address 


SA2 
0 70 70 7 


BR1311 


The floating-point values at the second stack location and at the top stack location are 
truncated and converted to binary indexing values. Respectively, these two indexing 
values define row and column values required to determine the virtual address of a single 
element in a two-dimensional arithmetic array. VADR is the virtual address of the 
descriptor (array dope vector) for this array. The two indexing values at the top stack 
location are replaced by the virtual address of the referenced array element. 


Example: 


PMC Sequence Run-Time Stack 


STF VADR of Row Value Before Y x Row 


STF VADR of Column Value 


»SA2 VADR of Array Descriptor After Y 


Top of Stack 


Desc 


Ce Le [= | w | 


Element Address = Base + ((Row-1) « 02+ Column) « Element Length, where D2 is the array 
column dimension and element length is precision dependent, 


BR1312 
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Stack Character Array Element Address 


SB1 
10) 70 70 7 


BR1313 


The floating-point value at the top stack location is truncated and converted to a binary 
indexing value. This indexing value is used to determine the virtual address of a single 
field in a character array. VADR is the virtual address of the descriptor (array dope 
vector) for this array. The indexing value at the top stack location is replaced by the 
virtual address of the field referenced in the character array. 


Example: 
PMC Sequence Run-Time Stack 
STF VADR of Index Value Before a 3 YL x I trax | Index 
»SB1 VADR of Array Descriptor 
i After ———— Addr | 
Top of Stack 
Desc 


Base + (|ndex * 19) = Addr, where 19 is the length of a character field. 


BR1314 


Stack Execution Control Code 


STX 
19] 70 7 


BR1315 


The execution control code in byte 2 (XX) is moved to the top stack location. 


Example: 
PMC Sequence Run-Time Stack 
Before Y 
»STX XX 


Top of Stack 


BR1316 
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Compute Stacked Address 


CSA 

\ 
! 
0 70 7 


BR1317 


The floating-point value at the top stack location is truncated and converted to a binary 
index value. This index value references a virtual address previously placed in the stack 
(ie., if the index value is I, the (NN+2—I)th stack entry is referenced). If the index value 
is in the range 1 through NN, the referenced virtual address is selected. If the index value 
is outside the range 1 through NN, the virtual address at stack location NN+2 is selected. 
The binary index value, at the top of the stack, and the series of virtual addresses, in 
stack locations 2 through NN+2, are deleted from the stack and the selected virtual 
address is placed at the top stack location. 


Example: 

BASIC Statements PMC Sequence 

0100 GOTO 200,300,400 ON A STH 0100 
STA VADR of 0110 
STA . VADR of 0200 
STA VADR of 0300 
STA VADR of 0400 
STF VADR ofA 
CSA 03 
*BRS 

0110 STH 0110 


0200 STH 0200 
0300 STH 0300———— 
0400 STH 0400 


*Branch depends on value of A. 


Run-Time Stack 


Locations —_——_—_» NN+2 NN+1 2 Top 


1 | t | 
Before x | _o110 | 0200 i 0300 [oo | a | 


(VADR) (VADR) (VADR) (VADR) 


After Xx | VADR | 
Top of eee 


For example, if A= 2, VADR = VADR 0300; if A = 99, VADR = VADR 0110. 


BR1318 


Licensed Material—Property of IBM 


Miscellaneous Operations 


Supervisor Call 


SVC 


ie) 7 


BR1319 


This pseudo instruction: 


1. Closes all activated external data files (those that were activated by an ADF 
instruction, but not closed by a CLS instruction). 

2. Writes all modified pages in the core paging area back to virtual memory. 

3. Resets the execution mode indicator in the system communication area. 

4. Causes the interpreter to pass control to the system control program (#GUFUD), 
via SCARPL in the system nucleus. 


This pseudo instruction marks the termination of the System/3 BASIC user-program 
execution, 


Halt Execution 


HLT 


0 7 
BR1320 


This instruction initiates a program-requested interruption. Execution of the System/3 
BASIC program is halted and control is passed to $PAUSD in the system nucleus, placing 
the interpreter program in the execution pause state. If the interpreter program is 
resumed, execution continues with the next sequential pseudo instruction following the 
HLT. 


Statement Header 
STH 
) 70 70 7 


BR1321 


With the exception of the image (:) statement, the pseudo instruction sequence for each 
translated BASIC statement begins with an STH instruction. The compiler distributor 
(BHDIST) generates the STH pseudo instruction in virtual memory, preceding any 
pseudo machine code generated specifically for statement execution. 

Execution is interrupted if an interrupt condition is in effect or if execution is in 
STEP mode. The STH instruction identifies the beginning of a statement and its line 
number reference. “Line” contains the binary line number reference. 

The STH pseudo instruction performs no logical operation and makes no modifications 
to either the run-time stack or the contents of virtual memory. Control is passed to the 
next sequential pseudo instruction. 
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Image Statement Header {:} 


IMH 
X‘66’ Line | 
a eae 
0 70 70 7 


BR1322 


The pseudo instruction sequence, for each translated image (:) statement, begins with 
an IMH instruction, 

Execution of the IMH pseudo instruction is identical to that of the STH pseudo 
instruction with this exception—when the pseudo instruction executed immediately 
preceding the IMH instruction is a BNX instruction, the IMH instruction becomes a 
no-op. 

The IMH instruction performs no logical operation and makes no modifications to 
either the run-time stack or the contents of virtual memory. Control is passed to the 
next sequential pseudo instruction. 


End of Page 
EOP 


0 7 


BR1323 


Each pseudo machine code virtual page is terminated with at least one EOP instruction. 
EOP execution results in control being passed to the first pseudo instruction that appears 
in the next sequential virtual page. 

When more than one EOP terminates a page, only the first is executed. (Only the first 
is displayed in a maintenance utility dump of virtual memory.) The contents of the run- 
time stack are not affected by the execution of this instruction. 


Example: 
PMC Sequence 


Page Boundary 


BR1324 
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Nonexecutable Operations 


Define Constant Address 


DCA 
X’6A’ VADR 
0 70 70 7 


BR1325 


The single arithmetic element or character field at VADR is defined as a data element in 
the internal data file. The position of the element in the file is directly related to the 
position of the DCA instruction with respect to other DCA instructions, 

All DCA pseudo instruction sequences are chained together by DDL pseudo instruc- 
tions to form the internal data file. Refer to “Define Data Linkage” (DDL) for an 
example. 

All sequences of DCA and DDL pseudo instructions have a BRA (branch unconditional) 
preceding them to bypass these nonexecutable instructions. 
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Define Data Linkage 


DDL 
(0) 70 70 7 


BR1326 


The DDL pseudo instruction always follows a string of one or more DCA pseudo instruc- 
tions. VADR is the virtual address that provides the linkage to the next sequential DCA 
instruction in the internal data file chain. A DDL instruction, with a VADR containing 
X‘0000’, marks the end of the internal data file. 

All sequences of DCA and DDL pseudo instructions have a BRA (branch unconditional) 
preceding them to bypass these nonexecutable instructions. 


Example Using DCA and DDL Pseudo Instructions: 


3-264 


Basic Statements PMC Sequence 


0100 DATA 1, 2,3 STH 
BRA 
DCA 
DCA 
DCA 
DDL 
0110 DATA 4, 5 STH 
BRA 
DCA 
DCA 
DDL 
0120 STH 


0200 DATA6 STH 
(last data statement) BRA 

DCA 

DDL 

0210 STH 


0100 
VADR of 0110 
VADR of 1\<————_ Internal Data File Pointer 
VADR of 2 
VADR of a) 
VADR of Next DCA 
0110 

VADR of 0120 
VADR of 4 

VADR of 5 

VADR of Next DCA 
0120 


0200 

VADR of 0210 

VADR of 6 

eee of Internal Data File 
0210 
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— 


Define Work Area 


DWA 
Pe [ow 
0 70 7 


BR1328 


NN is equal to the number (in binary) of bytes in the work area. The work area initially 
contains binary 0’s. 

The DWA pseudo instructions are preceded by either a NXT or a BRA (branch uncon- 
ditional) instruction. Either of these instructions provides insurance that the DWA can- 
not be executed. 


Example: 


PMC Sequence 


BRA VADR 
>DWA 09 
0000 0000| 0000| 0000 00 


BR1329 


End of Program 
EOF 


e) 7 
BR1330 


The EOF instruction marks the end of the functional pseudo instructions. This instruc- 
tion is not executed. This is the last instruction generated for a System/3 BASIC user 
program with the exception of EOP pseudo instructions which are padded to the end of 
the page. (These EOP instructions are not displayed by the maintenance utility VM dump.) 
The EOF pseudo instruction is always preceded by a SVC pseudo instruction. The SVC 
ensures that the EOF cannot be executed. This sequence is always generated. 


Example: 


PMC Sequence 


Botceinndaseiscaeation Page Boundary 


BR1331 
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FLOATING-POINT ARITHMETIC 


Floating-point arithmetic automatically maintains decimal point placements (scaling) 
during computations in which the range of values used varies widely or is unpredictable 
(Figure 3-171). 

The key to floating-point data representation is the separation of the significant digits 
of a number from the size (scale) of the number. Thus, the number is expressed as a 
fraction times a power of 10. A floating-point number has two associated sets of values. 
One set represents the significant digits of the number and is called the fraction. The 
second set specifies the power (exponent) to which 10 is raised and indicates the loca- 
tion of the decimal point in the number. 

These two numbers (the fraction and exponent) are recorded in a single field. Since 
each of these two numbers is signed, some method must be employed to express two 
signs in the field. A negative fraction is indicated by the presence of a sign bit in the field. 
The sign of the exponent is expressed in excess 128 arithmetic; that is, the exponent is 
added as a signed number of 128. The resulting number is called the characteristic. Since 
the decimal range of the exponent is -98 through 0 to +99, the range of the charac- 
teristic is 30 to 227! (X‘1E’ to XE? ). (Refer to Figure 3-172 to convert characteristics 
to exponents, or the reverse.) 

The number is always normalized to provide a fraction with the greatest possible pre- 
cision. The number is normalized when the decimal point is immediately to the left of 
the first significant digit. The exponent is raised or lowered until the decimal point is 
positioned. (Example: 1234.56 is normalized to a fraction of 0.123456 with an exponent 
of 104.) 

Floating-point data is recorded in either standard (short) or long precision. Standard 
precision provides for 7 significant digits and long precision provides for 15. The signifi- 
cant digits, when represented in packed-decimal format, occupy a five-byte field for 
standard precision. The field is extended to nine bytes for long precision. Refer to 
Figure 3-173 for the format of these fields. Arithmetic unpacked-decimal format is 
shown on Figure 3-174. 


Conversion Example: Convert a standard-precision, packed-decimal, floating-point value 

(1 | 1 23 00 00| 7E) to an unnormalized decimal number: 

1. Disregarding the first half-byte and the last byte, the packed-decimal, normalized 
fraction is 0.1230000. 

2. The exponent is developed from the characteristic (last byte): 

Characteristic - Base = Exponent 

X‘7E’ = 126 - 128 = -2 

Bit 3 of the first half-byte indicates that the fraction is negative: -0.1230000. 

4. | The normalized decimal number in floating-point notation is therefore 
-0.1230000 x 10-2. 

5. The unnormalized decimal number is -0.00123. 


? 
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She 


Normatized Vajue Internal Floating-Point 


12,345 0.1234500 
-12.345 -0.1234500 
12.345 x 1020 0.1234500 
12,345 x 10729 0.1234500 


12.345 x 1026 0.1234500 


1.2345 x 10799 0.1234500 
0.00005 0.5000000 
0.5 0.5000000 
5000 0.5000000 
0 *0,0000000 
12,3456789012345 | 0.123456789012345 67 89 01 23 45|82 


*Special form used to display a standard-precision, packed, floating-point zero. 
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Figure 3-171. Floating-Point Numbers, Example 


N 


“93 -92 


w 


-77 ~-76 
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| 


| 
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Hexadecimal value exceeds exponent limits. 
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Figure 3-172. Exponent Conversions (Internal Format to Decimal) 
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Precision, Packed-Decimal, Floating-Point 
‘Element (9 bytes) 


Sta- 15-Packed-Decimal Digits Gare: 


Long- 


tus 


Short-Precision, Packed-Decimal, Floating-Point 
Element (5 bytes) 


i x i ini Charac- 
7 Packed-Decimal Digits 


Status Half-Byte 


oe 0-Positive Fraction 
1-Negative Fraction 
| 0-Standard (short) Precision 
1-Long Precision ; 
0-Arithmetic Floating-Point Element 
1-Character Field (refer to Figure 3-110) 
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Figure 3-173. Arithmetic Packed-Decimal Format 


Long-Precision, Unpacked-Decimal, Floating-Point Field (16 bytes) 


i |p [eee eee) ese aa) [es |e 


15 Unpacked-Decimal Digits (signed) 


Characteristic 


Short-Precision, Unpacked-Decimal, 
Floating-Point Field (8 bytes) 
P12] sta] sj s{ zfs 


7 Unpacked-Decimal Digits (signed) 


Characteristic 


Note: 


1. The zone bits, of the last significant digit, indicate the sign of an unpacked- 
decimal field; F = positive, D = negative. 


2. Refer to “Floating-Point Arithmetic” to determine the exponent from the 
characteristic, 
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Figure 3-174. Arithmetic Unpacked-Decimal Format - 
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DESK CALCULATOR -DCALC (Figure 3-179) 


The first phase of DCALC is called by the command analyzer (HECMAN) after command 
key 01 is pressed by the operator. DCALC processes operator commands from the key- 
board, one command at a time, until the operator transfers control to #GUFUD via 
INQUIRY REQUEST (INQ REQ). The concepts of virtual memory and paging are the 
same for DCALC as for the interpreter. Many of the subroutines used by DCALC 
(including the paging subroutine, IPGMDL) are identical to those used in the interpreter. 


DCALC Cycle 
1. DCALC accepts input from the keyboard (command keys, function keys, and 
data keys). 


2. The operator command is interpreted and/or syntax checked. 

3. Core-resident and virtual-memory-resident subroutines are called to execute the 
operator’s command. 

4. Steps 1 through 3 are performed until DCALC is terminated (INQ REQ). 


Organization of Assembly Listings 
All modules of the desk calculator are contained in these six assembly listings: 


DCALC loader—-#VLOAD 

Core-resident routines-#VODKA 

Virtual-memory-resident subroutines-#VVMRS 
Virtual-memory-resident subroutines and procedures-##VUFA 
CRT physical IOCS-#VCRTI 

DCALC terminator—#VXITI 


DAARWN > 


Core Resident Routines-#VODKA 


#VODKA resides in the system program file and is loaded to core at X‘0600’ immedi- 
ately following the system nucleus. #VLOAD copies #VVMRS to virtual memory prior 
to loading #VODKA. The assembly listing of #VODKA contains the following modules 
arranged in this physical order: 


VSVARA-Save areas and push-down (PM) registers 

VOTCON—Convert floating point to output 

FDIADD/FDISUB—Floating point add/subtract (long precision) 

FZIMPY—Floating point multiply (long precision) 

FFIDVD—Floating point divide (long precision) 

VODKAL—DCALC monitor (control module) 

VODIPT—Alpha input table 

VENABL-Return next input character 

VENDTB-—Data key character table 

VOUTPT—Output control routine 

VSYNTX—Control computation routine 

VCONVT—Convert input to floating point (long precision) 

TVAREG—Addressable (AM) registers 

DPRINT—Matrix printer physical IOCS (actual I/O) (refer to “Conversational 1/0 
Routines—#DPRIN”’) 

DVPRSC—Keyboard physical IOCS (actual I/O) 

IPGMDL—Paging subroutine (refer to “Paging Subroutine-IPGMDL”’) 

VINITI—DCALLC initialization 


Program Organization 3-269 


Licensed Material—Property of IBM 


Virtual-Memory-Resident Subroutines—#VVMRS and ##VUFA 


These components of the desk calculator are copied from the system program file to the 
first 72 sectors of virtual memory, by the DCALC loader (#VLOAD). Individual pages 
are read into the core paging area and executed under control of the paging subroutine 
(IPGMDL). ##VUFA starts at virtual address X‘3200’. #VVMRS and ##VUFA contain 
subroutines and data areas to perform the functions listed in Figure 3-175. 


Virtual Disk Symbolic Input Seepels 
Address Address Label Command mee 


VERROR Error message routine, 
VPRINT Print AM and PM registers. 


VPRTBL Core addresses and virtual addresses 
for AM and PM registers. 


VPRBAA Virtual memory buffers for all AM and 
PM registers. 


VPOINT POINT Change decimal point location, 
VNWDEF PROC Define a new procedure. 


VNWCRD CARD Read a procedure from the data 
recorder. 


VDELET (01) Delete a procedure. 
VNDPRC END End a procedure. 


VREADI CARD Read a procedure from the data 
recorder. 


VRUNIT (PROG Execute a procedure. 
START) 


VRUEXC EXEC List a procedure as it is executed. 

VRULST LIST List procedure steps without execution. 

VPLIST List procedure input buffer, 

VPUNCH PUNCH Punch a procedure on data recorder. 

VPUBUF Virtual memory buffer for punch 
output. 

VSFONE Perform statistical function 1. 


VSFTWO Perform statistical function 2. 


VSFT01 Text messages for SF1 and SF2. 
*FKLLGT Log base 10. 

*FKLLTW Log base 2. 

*FKLLOG Log base e, 


*CENXZD Convert exponent to zoned decimal, 


*CCZDFP Convert zoned decimal to long-precision 
floating-point. 


*FGLEXP Exponentiate. 

*FNBPWR Floating-point exponentiate. 

*FRBSOQR Square root. 

*FSBCOS Cosine. 

*FSBSIN Sine, 

*FOQLRND Random number generator. 

*CBFPZD Convert floating point to zoned decimal. 


*CDBNZD Convert binary number to zoned 
decimal. 


BR1336.1 
Figure 3-175. Contents of Virtual Memory (DCALC) (Part 1 of 2) 


3-270 


Licensed Material—Property of IBM 


Secant, 


Virtual Disk Symbolic 
Address Address Label 


*FTLSEC 
*FTLCSC 
*FIJBINT 
*FPBRAD 
*FPBDEG 
*FABABS 
*FUBSGN 
*FWLCOT 
*FWLTAN 
*DFRDIN 
*DFCOUT 
*FHLHCS 
*FHLHSN 
*FHLHTN 
*FFBLATN 
*FCLACS 
*FCLASN 


Input 
Command 
SEC 


CSC 


Cosecant. 


Integer. 


Convert degrees to radians. 


Convert radians to degrees. 


Absolute value. 


Sign. 


Cotangent. 


Tangent. 


Card reader physical |OCS (actual 1/O). 


Card punch physical 1OCS (actual !/O). 


Hyperbolic cosine. 


Hyperbolic sine, 


Hyperbolic tangent. 


Arctangent. 


Arccosine. 


Arcsine. 
Not used by DCALC (5 pages). 
DCALC terminator (#VXITI). 


Procedure address table. 


V@VEXT 
VSATBL 
VSARCH 


Returns the virtual address of a 
procedure. 


Write back modified VM pages and 
load DCALC terminator (#VXITI). 


VSAWRT INO REQ 


Procedures Q through Z (2 pages per 
procedure—20 pages total). 


VSAP ROQ+1 


Three sectors of saved core starting at 
label FDIADD in #VODKA, 


V@VOVL 


The remainder of virtual memory is 
not used by DCALC., 


BR1336.2 


Figure 3-175. Contents of Virtual Memory (DCALC) (Part 2 of 2) 


The following list contains explanations of the column entries in Figure 3-175: 


1. “Virtual Address” is the virtual address entry point to perform the function or 
the virtual address of a data area or table. 

2. “Disk Address” is the disk address of the virtual memory page containing the 
entry point. 

3. | “Symbolic Label” is the symbolic name of the entry point in the assembly listing 
of #VVMRS. An * indicates that: the subroutine is identical to a subroutine in 
#FMLNG (interpreter), both having the same symbolic name. 

4. “Input Command” is the user command associated with the execution of that 
subroutine. Parentheses indicate a keyboard function or command key (example: 
(PROG START) or (01)). 
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DCALC Initialization—#VLOAD and VINITI 


#VLOAD is the first phase of the desk calculator to be loaded into core. This phase 
copies #VVMRS, #VXITI, and ##VUFA to virtual memory from the system program 
file, and then loads the mainline phase of the desk calculator (#VODKA) to core. 
#VODKA overlays #VLOAD. (Refer to Figure 3-176.) 


Core 


0000 


System Nucleus 


~ #VLOAD 


NX “XN 
“XN 
“XN 
#VODKA 


(DCALC monitor) 


1800 


Virtual Memory 
2000 


% ‘7 
trrrrnpyrspptititcy 
#VXITI and ##VUFA 


#VCRTI 
(CRT physical |OCS) 


BR1338 


Figure 3-176, DCALC Core and VM Map (with CRT) 


The first executable instruction in #VODKA is a branch to VINITI. This initialization 
routine (VINITI) writes a three-sector area of the core-resident desk calculator to virtual 
memory. These three sectors are used for error message text blocks (4##ERMS) during 
DCALLC error message processing (in routine VERROR). After error message processing, 
the area is restored from virtual memory. VINITI also loads #VCRTI (CRT physical 
IOCS and CRT buffer) to high core, if a CRT device is configured. VINITI initializes the 
core paging area to a size of eight pages (starts at X‘1800’). 

Initialization of the desk calculator is complete when VINITI branches to the label 
VODONE, in #VODKA. 


Licensed Material—Property of IBM 


DCALC Error Messages-VERROR 


VERROR is a pageable subroutine in virtual memory (4VVMRS). This page is called to 
display error messages to the operator. VERROR reads the first two sectors of ##ERMS 
from the system program file into core, overlaying part of the core-resident desk calcula- 
tor (#VODKA). These two sectors contain an index to the message text within ##ERMS. 
The error code (VERERC) is used as a search argument against the index. The entry that 
is located contains the relative disk address of the message text within ##ERMS. The 
message text is read from the system program file, overlaying the index. 

The message is displayed on the matrix printer by DPRINT. The core area, used as a 
buffer for the index and message text blocks, is restored from virtual memory. An image 
of the core-resident code normally occupying this area was written to virtual memory 
during DCALC initialization. 


Label Trace for ENTER+ Function 


The following labels trace the execution of the ENTER+ function key. This function 
places‘ the numeric value just entered, into PM1. The numeric value is converted to a 
long-precision, unpacked-decimal, floating-point field. This trace illustrates a func- 
tion executed entirely by core-resident routines. 


1. _VODONE-—This label is the normal return point after the execution of each 
function. 

2 VOD0S50—Branch to VENABL and set up return linkage. 

3 VENABL-Get a single input character from the keyboard. 

4, | VEN200—Branch to DVPRSC for keyboard physical I/O. 

5. |DVPRSC-—Read one input character from the keyboard and perform error checks. 

6 VENRET~—Return from keyboard IOCS; input was the ENTER+ function key. 

7,  VOD060—Check type of input character. 

8 VOD110—Character is ENTER+. Branch to VSYNTX to perform syntax check. 
Calculation is desired. 

9, VOD110+10—Branch to VODPSH. 

10. VODPSH-Push down PM registers 1 through 9. 

11. VOD110+14—Jump to VOD840. 

12, VOD840-TIf no error, branch to VOD890, 

13. VOD890-—Branch to VOUTPT for output. 

14. VOD060—Check type of input character. 

15. VOU300--Branch to VSPRNT (interface to DPRINT and/or #VCRTI) to tab 
(space carrier and/or cursor). 

16. VOU300+18—Branch to VOTCON to convert the contents of PM1 to printable 
format. 

17, VOU300+25—Branch to VODPRT (interface to DPRINT and/or #VCRTI) to 
print PM1. 

18. VOU802—Return to DCALC monitor. 

19, VOD900—Return to VODONE to process the next operator input. 


Label Trace for SIN Function 


The following labels trace the execution of the SIN function. This trace illustrates a 
function that requires paging of subroutines from virtual memory. Those labels marked 
with an (*) are located in virtual memory subroutines (#VVMRS). Those that are 
unmarked are located in the core-resident desk calculator (#VODKA). 


1. VODONE-This label is the normal return point after execution of each function. 
2. VODO50—Branch to VENABL. 
3. VENABL-Get a single input character from the keyboard. 
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4 VEN200-—Branch to DVPRSC for keyboard physical I/O. 

5 DVPRSC—Read one input character from the keyboard and perform error checks. 

6. . VENRET~—Return from keyboard IOCS; input was the S data key. 

7. VEN290—Move the first character into the input buffer at label VSVIPC. 

8 VOD060—Check type of input character. 

9. VOD300-S is an allowable first input data character. 

10. VOD310—Call VENABL to get the second input character. Move it to the input 
buffer at label VSVIP2. 

11. VOD330—Call VENABL to get the third input character. Move it to the input 
buffer at label VSVIP3. Now the input buffer contains SIN. 

12. VOD340—Search the alpha input table (VODIPT) for the SIN entry and branch to 
the core address in the entry located. 

13. VOD600-Save the virtual address of the SIN function subroutine from the alpha 
input table. Branch to the paging subroutine (IPGCAL). The parameter following 
the branch instruction is the virtual entry point in the required virtual-memory 
page (X‘1A1A’). 

14, IPGCAL—Read and lock page X‘1F’ into the core paging area. This page contains 
the execution subroutine FPBRAD. 

15. *FPBRAD—Convert the contents of PM1 from degrees to radians, 

16, *FPB600—Branch to the paging subroutine. ISRTRN is equated to IPGRTN. 

- 17, IPGRTN—Unlock page X‘1F’ and return to the DCALC monitor at label 
VOD600+18. 

18, VOD660—Branch to the paging subroutine (IPGCAL). The parameter following 
the branch contains the virtual entry point to the SIN function subroutine. This 
address was saved previously at label VOD600. 

19, IPGCAL—Read and lock page X‘1A’ (FSBSIN). 

20. *FSBSIN—Compute the sine of the value in PM1 and place the result in PM1. 
Branch to the paging subroutine I$RTRN). 

21. IPGRTN—Unlock page X‘1A’ and return to the DCALC monitor at label 
VOD680+1. 

22. VOD840-Hf no error, branch to VOD890. 

23. VOD890—Branch to VOUTPT for output. 

24, VOUTPT—Request is to print PM1. 

25. YOU300—Branch to VSPRNT (interface to DPRINT and/or #VCRTD to tab 
(space carrier and/or cursor). 

26. VOU300+18—Branch to VOTCON to convert the contents of PM1 to printable 
format. 

27. VOU300+25—Branch to VODPRT (interface to DPRINT and/or #VCRTI) to 
print PM1. 

28. VOU802—Return to DCALC monitor. 

29. VOD900—Return to VODONE to process the next operator input. 


Keyboard Physical |OCS—DVPRSC (Figure 3-177) 


DVPRSC is called when input of one key (function, command, or data) is to be read 
from the keyboard. The keyboard is enabled and this routine waits for a key to be 
pressed by the operator. 

When the operator presses a key, the data is sensed and then passed to the calling 
routine. INQ REQ and hard parity errors return to VENEXT. All other keys return to 
VENRET with the sensed data at label VENKEY. If a typamatic key is pressed, DVPRSC 
waits until the key is released before branching to VENRET. 

The keyboard is locked and enabled on INQ REQ. For all other keys, the keyboard is 
unlocked and disabled. 
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DVPRSC 


Set interrupt 
address 


to DVPIRP, 


Enable 
keyboard, 


DVP100 


Loop 
Until Interrupted 


DVPIRP 


Set 
error 
pending 

indicator. 


Sense 
keyboard, 


2nd 1st Set up 
error history 


Jog entry. 


DVP180 None 
DVP330, 
Set Soft Halt 
hard error wes 
Indicator. 
No 
DVP380 
VENEXT 
In #VODKA 
Move sense i No 
data to igh 
#VODKA, Request 
Yes DVP350 


Unlock 
and 

disable 
keyboard, 


Mask 
Ingulry 
requests, 


If typamatic 


keys, continue 
to sense keyboard, 


VENRET $CIEXT 


Figure 3-10 


In #VODKA 
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Figure 3-177. Keyboard Physical IOCS (DVPRSC) Flowchart 
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CRT Physical IOCS—#VCRTI 


This program handles all output on the CRT. It is loaded to high core only if the CRT is 
configured on the system. The CRT output buffer (in the assembly listing of #VCRTD 
contains the initial formatted output for the standard DCALC CRT display. 

Changes in the display are moved to the output buffer by #VCRTI. Physical I/O and 
error recovery procedures on the CRT are accomplished by this program. 


DCALC Termination—VSAWRT, #VXITI 


VSAWRT is a pageable subroutine in virtual memory (##VUFA). This page is called when 
the operator depresses INQ REQ. VSAWRT writes back all modified pages from the core 
paging area to virtual memory (these pages may contain modifications to procedures), 
VSAWRT loads, via $BLOAD in the system nucleus, #VXITI and ##VUFA (procedures) 
from virtual memory. 

#VXITI writes back all procedures (##VUFA) to the system program file before 
returning, via $CAIPL in the system nucleus, to BASIC mode of operation, This action 
reflects all modifications that the user may have made, to the procedures, on this activa- 
tion of the desk calculator. (Refer to Figure 3-178.) 


System Program File 


0000 


System Nucleus 


Virtual Memory 


1800 L____ #H#VUFA 
(procedures) 


#VCRTI 


* VSAWRT will be one of the 
Pages in the core paging area. 
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Figure 3-178, DCALC Termination Core Map 
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#VLOAD 


\ VLOADN 


} 
LOAD #VODKA 


Load virtual memory routines ($DISKN). 
» Turn on command lights. 

. Load saved procedures to VM($DISKN). 
. Exit to $RLOAD to load $VODKA. 


#VODKA 


VINITI 
INITIALIZATION (VINITI) 


. Print header (DPRINT). 
. Do one time initialization. 


. Load #VCRTI if applicable ($LOADR). 
. Initialize paging module. 


VODONE 
ENABLE INPUT 


1. Call VENABL to return input character. 


Input 
Character 


Other ; 
Inquiry 


Request 


Invalid VSAWRT 


PERFORM FUNCTION ERROR PROCESS EXIT ROUTINE 
. Call VSYNTX to return if cal- 1. Call VERROR to output error 1. Call IPGMPL to write out 
culation desired. message. modified pages. 


. Call routine to perform calcu- 
lation. 


. Call VOUTPT to output result. 
#VXITI 


EXIT #VODKA 
1. 


Save procedures on disk 
($DISKN). 

. Turn off command lights. 

. Reset CRT screen if applicable. 


2. Load $VXITI($BLOAD). 


. Exit to $CAIPL. 


#GUFUD 
Figure 3-22 
Via $CAIPL 


} BR1337 
Figure 3-179. Desk Calculator (#VLOAD, #VODKA, #VXITI) Flowchart 
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This section contains: 


e Directory list 


Page of LY34-0001-1 
Revised January 1972 
By TNL LN34-0075 


Section 4. Directory 


e Source module labeling conventions 


e System equates 


DIRECTORY LIST 


Component 
Name 


##0TRK 


##1TRK 


##DRTY 


#INSTD 


#SPSYN 


#BCOMP 


#LOADR 


#DPRIN 


The directory is a listing of all components, for quick reference to System/3 BASIC 
assembly listings on microfiche. The names appear in this directory in the order in which 
they appear in ##DRTY-—system program file directory. This section also contains syster: 
equates, and gives the general contents of each equate assembly listing. 

The directory list contains the following columns: 


e Component Name. The symbolic label used to identify an assembly listing. This name 
appears on the microfiche and in the heading of each page in the assembly listing. 


e Descriptive Component Name. This name identifies the component in Section 3. 


e Synopsis. A brief summary of the main functions performed by a program. For com- 
ponents other than programs, the synopsis is a brief summary of the contents of the 


component. 


Descriptive Component Name 


Cylinder O, track 0 


Cylinder O, track 1 


System program file directory 


Core-resident routines (standard-precision 
interpreter) 


Procedure line checker 


Systemn/3 BASIC language compiler 


Loader 


Conversational 1/O routines 


Synopsis 


Contains the IPL bootstrap loader (MLOADS); initial 
information for track 0. 


Contains the system nucleus; initial information for 
track 1, 


Contains a list of all components in System/3 BASIC. 
Defines the relative disk address and sector count of the 
component, the core load address, and the program ID 
number. 


Core-resident routines direct the execution of pseudo 
machine code (PMC) instructions in standard precision. 


Formats procedure lines for insertion into the work 
file. 


Compiles the source program into PMC instructions and 
constants. 


Completes the preparation of virtual memory for the 
execution of PMC instructions. 


Provides actual 1/O for the matrix printer and keyboard 
while in conversational mode. 


Directory 4-1 


Licensed Material—Property of IBM 


Page of LY34-0001-1 
Revised January 1972 
By TNL LN34-0075 


Component Descriptive Component Name 
Name 
#KGOSL GO keyword program 
#KEDIT EDIT keyword program 
#KENAB ENABLE/DISABLE keyword program 
#DREAD Card reader I/O routine 
#KMOUN MOUNT keyword program 
#KRMOV REMOVE keyword program 
#KPASW PASSWORD keyword program 
#KEXTR EXTRACT keyword program 
#DPSLY CRT I/O routine 
#TSY KT System keyboard tables 
#KRNUM RENUMBER keyword program 
#KROVL RENUMBER keyword program overlay 
#KOVME MERGE keyword program overlay 
#KWRIT WRITE keyword program 
#KREAD READ keyword program 
#KWIDT WIDTH keyword program 
#KRUNI RUN/STEP/TRACE keyword program 
#KDNTE ENTER keyword program 
#KMERG MERGE keyword program 
#TDCKT Desk calculator keyboard tables 
#KDELE DELETE keyword program 
#KCTLO LISTCAT keyword program 
#KLIST LIST keyword program 
#KLOGO LOGON/OFF keyword program 
#KSAVE SAVE keyword program 
4-2 


Synopsis 


Continues or aborts a program from a pause state. 


Edits a saved file to the system work file or prepares the 
work file for a new file entry. 


Enables or disables statements in the system work file. 


Provides actual I/O for input from the data recorder while 
in conversational mode. 


Updates the nucleus communications area when a disk 
volume is changed, 


Updates the nucleus communications area when a disk 
volume is removed. 


Changes the current password and the password directory 
to a new password. 


Saves specified line numbers on the system work file. 


Provides actual |/O for the CRT while in conversational 
mode, 


Keyboard character tables for various foreign languages. 


Renumbers statements in the system work file. 


See #KRNUM. 
Note: This overlay is assembled with #KOVME. 


See #KMERG. 
Note: This overlay is assembled with #KROVL. 


Changes the device assigned as the system printer. 
Changes the system input device. 

Changes the system printer margin values. 

Provides linkage to the System/3 BASIC compiler. 

Enters disk system management programs. 

Merges statements from a user file to the system work file. 
Keyboard tables for various foreign languages. 


Deletes statements from the system work file or saved 
files and passwords from the library, 


Displays information from the library directories. 
Displays the contents of the work file. 
Defines or cancels a user password. 


Stores the contents of the work file in the two-star library 
or a user library. 
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Component 
Name 


#SPACK 


#SPOVL 
#KPOOL 


#KCHAN 


#KSVLA 


#KSSPN 


#KNAME 
#KSYMB 


#KPRTC 


#KSETI 


#GRAPR 


#KALLO 


#KRLAB 
#KRVLA 


#KDISP 


#KDOVR 


#VCRTI 


#EXMSG 


##CORE 


##ERMS 


#KHELP 
#MIPPE 


#KSOVR 


#VXITI 


Descriptive Component Name 
Pack file library subroutine 


Second phase of #SPACK 
PULL/POOL keyword program 


CHANGE keyword program 


SAVE keyword program overlay 


SUSPEND keyword program 


RENAME keyword program 
SYMBOLS keyword program 


PROTECT keyword program 
SET keyword program 
Procedure line fetch processor 
ALLOCATE keyword program 


RELABEL keyword program 


RELABEL keyword program overlay 


DISPLAY keyword program 


DISPLAY keyword program overlay 


CRT physical 1OCS for DCALC 
Program interruption processor 


Save area 


Error messages 


HELP keyword program 
Nucleus initialization program 


SET keyword program overlay 


DCALC termination 
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Synopsis 
Condenses the file library to place all null areas at end of 
the library. 
See #SPACK. 


Adds or deletes user files to or from the one-star library. 


Alters a statement in the system work file or statement 
containing the last syntax error. 


See #KSAVE. 


Saves a program that is currently in an execution pause 
state. 


Changes the filename of the work file or a user file. 
Displays variable names from the system work file. 


Sets or cancels user file, or one-star protection. Sets 
two-star protection. . 


Assigns a value to a program variable while in a program 
execution pause state. 


Locates sequential procedure statements in the temporary 
procedure work area. 


Reserves space for user data files and defines the data files 
to be used during program execution. 


Changes variable names in the system work file. 

See #KRLAB. 

Displays the current values of program variables while ina . 
program execution pause state or following a program 
termination (unless virtual memory is destroyed). 


See #KDISP. 


Provides DCALC with an interface to the CRT 1/O routine 
in virtual memory. 


Displays a message to identify the type of program 
interruption. J 


Disk area used to save core for pause mode. 


Contains the message number and text for system error 
messages, 


Displays help text. 
Initializes the system nucleus during the IPL procedure. 


See #KSETI. 


Provides exit linkage to return to BASIC mode of 
operation, 


Directory 4-3 


Licensed Material—Property of [BM 


Page of LY34-0001-1 
Revised January 1972 
By TNL LN34-0075 


Component Descriptive Component Name 

Name 

#H#VUFA DCALC subroutines and procedures 

#VLOAD DCALLC initialization 

#VODKA DCALC core-resident routines 

#TVKBT Unused 

#VVMRS . DCALC VM-resident subroutines 

#FMSTD VM-resident execution subroutines 

#UEXLI EXPAND utility program 

#UALLO ASSIGN utility program 

#KCNDI CONDITION keyword program 

##CSAV Suspended save area 

#HSSAV Status save area 

##SAVM Save area 

#FISTD Interpreter execution overlay 

#FILNG Interpreter execution overlay 

##RSPG Save area 

#BOVLY Statement processor overlays 

#SFSYN BASIC statement syntax checker 

#SFOVR Syntax checker 

#STROV ’ Third phase of BASIC statement syntax 
checker 

#HESPG Save area 

#GUFUD Work file update/crusher 

#ERRPG Error message program 

##BLNB Bad line buffer 

#ECMAN Command analyzer 

4-4 


Synopsis 


Contains user procedure save areas and procedure control 
subroutines. Resides in virtual memory during DCALC 
mode of operation. 


Initializes and provides linkage to the desk calculator 
monitor. 


Controls execution of desk calculator operations. 


Contains subroutines that reside in virtual memory during 
DCALC mode of operation. 


Contains all standard precision execution subroutines that 
occupy the fixed area of virtual memory during the 
execution of a BASIC program. 

Changes the disk space allocated to a user library file. 
Allocates disk space for a LIBRARY or system work area. 
Displays the current status of the system. 

Disk area used to save suspended core. 

Disk area used to save the status of a suspended program. 


Virtual memory disk save area. 


Overlays the core-resident interpreter to perform matrix 
inversion or determinant in standard precision. 


Overlays the core-resident interpreter to perform matrix 
inversion or determinant in long precision. 


Start of cylinder 4, R17 area. 


Contains overlays to generate PMC sequences and to terminate 
the compiler. 


Checks the syntax of all System/3 BASIC language 
statements entered into the system. 


See #SFSYN. 


Checks operands of STR function. 


Start of cylinder 4, F1 area. 


Performs maintenance on the system work file and monitors 
system input while in conversational mode. 


Displays error messages. 
Used to store the input line buffer when the line is invalid. 
Its purpose is to free the input line buffer for input required 


to correct the bad line. 


Analyzes system commands and loads the program required 
to process that command. 
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~~ 


Component 
Name 


#SFLOA 


#SDSYN 
#SFFIN 
#UPACK 


#EFKEY 
#UCNFI 
#UCPLI 
#UATRC 
#UINIT 
#UCDIS 


#UDELV 


#UDISV 


#ZTRAC 
#ZDUMP 


#ZLOAD 
#ZUTMO 


#INLNG 


| #KCALL 
#KRSUM 


#UPTFEI 
#UPOVL 
#FMLNG 
##CNE | 


#KLLAY 


#ZLBMA 


Descriptive Component Name 


Interpreter execution overlay 


Data syntax checker 
Interpreter execution overlay 
PACK utility program* 


Command key processor 
CONFIGURE utility program 
COPY file utility overlay 
Alternate track utility program 
Initialize disk utility program 
COPY volume utility program 


VTOC delete utility program 


VTOC display utility program 


Program load trace overlay 
Virtual memory dump overlay 


Maintenance utility loader 
Maintenance utility monitor 


Long precision interpreter 


CALL keyword program 
RESUME keyword program 


PTF utility program 


PTF utility program overlay 


VM-resident execution subroutines 


Configurator record 


LIST keyword program overlay 


Library map overtay 
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Synopsis 
Logical |OCS for disk data files. Transfers data items between 
saved files in the file library and |/O buffers allocated in 


virtual memory. 


Checks the syntax of all data entered into the system while 
in conversational mode. 


Find disk data file subroutine. Called to find a disk data file 
in the file library or to get space for a SCRATCH data file. 


Provides interface to the pack user library subroutine, See 
#SPACK. 


Processes command keys 01 through 11. 

Creates or modifies the configuration record on disk, 
Copies the system program, user library, or help text files. 
Tests, assigns, and unassigns individual data tracks. 
Initializes a disk volume to the standard System/3 format. 
Copies the contents of a disk volume to another volume. 


Releases disk space by deleting files defined by labels in 
the VTOC. 


Displays VTOC file label information. 


When activated, traces all programs loaded by the system 
nucleus. 


Displays the pseudo instructions currently in virtual 
memory. : 


Loads the maintenance utility monitor, 
Provides maintenance service aid functions, 


Core-resident routines, Directs the execution of pseudo 
machine code (PMC) instructions in long precision. 


Invokes a procedure file in the user library. 
Restores a suspended program to the execution pause state. 


Applies program temporary fixes to System/3 BASIC 
components, 


See #UPTFI. 
Contain all long-precision execution subroutines that 
occupy the fixed area of virtual memory during the 


execution of a BASIC program. 


Contains indicators for the hardware components with 
which BASIC is running. 


See #KLIST. 


Determines the library map option. 
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Component 
Name 


#ZLIMA 
#ZL2MA 
#ZL3MA 
#ZLVRL 
#KKEYS 
##CKTB 


##INVD 


##PWRK 


#TEQU1 


#TEQU2 


Descriptive Component Name 


Library map option 1 overlay 
Library map option 2 overlay 
Library map option 3 overlay 
Library map option 3 overlay 
KEYS keyword program 
Command key table 


Save area 


Procedure work area 


System equates 


System equates 


Synopsis 


Processes option 1. 

Processes option 2. 

Processes option 3 (part 1). 

Processes option 3 (part 2). 

Lists, assigns, or restores command key functions. 
Table of functions assigned to command keys 1 to 11. 


The matrix inverse and matrix determinant functions use 
this disk area. 


This disk work area is used when a procedure file is 
invoked. 


Assembled as an aid to resolving symbolic references in 
microfiche (part 1). 


Assembled as an aid to resolving symbolic references in 
microfiche (part 2). 
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SOURCE MODULE LABELING CONVENTIONS 


SYSTEM EQUATES 


All labels within the same source module are prefixed by a character that identifies the 
type of source module. The following list associates each character with the type of 
source module it identifies: 


B—Compiler 

C—Conversion subroutines 
D-—I/O subroutines 

E—System control routines 
F—Virtual memory routines 
G—Work file processing 
I—Interpreter 

K—Keyword processing 
L—Loader 

M~—Miscellaneous system routines 
N—System nucleus 

S—Data management or syntax routines 
T—Nonexecutable tables 
U—Utility processing 

V—Desk calculator 
Z—Maintenance utilities 
@—System equates 

$—System equates 


The component parts of System/3 BASIC are assembled in the System/3 Basic Assembler 
Language. Modules composed of equates (EQU) are used for communication between 
the different component parts (assembly listings). These equate modules are referred to 
as system equates. These modules are assembled (as needed) with the component parts of 
the system. To reduce the size of listings and microfiche, the PRINT OFF, PRINT ON 
feature of the assembler is used. The value and references of equated labels that are not 
printed can be found in the cross-reference label list in the assembly listing. 

All system equate modules have been grouped into two assemblies, #TEQU|! and 
#TEQU2. All labels not printed at their point of resolution can be located in one of 
these listings. 


#TEQU1 


System and Hardware Equates—@SYSEQ 
Note: All labels in this module are prefixed by @. 


1, CPU equates: registers, instruction lengths and displacements, branch condition 
codes, miscellaneous constants, and masks, 

2. Disk parameter list (DPL) and print parameter list (PPL) equates. 

3. System work file equates: segment header displacements and masks, and file index 
table (FIT) displacements and lengths, 
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System Hardware |/O Equates-@HDWEQ 
Note: All labels in this module are prefixed by @. 


1. Disk equates: disk control field (DCF), disk I/O instructions, condition codes, 
device addresses, track flag byte, nucleus communications area error history log 
entries, and sense bytes. 

Matrix printer equates. 

Keyboard equates: mask values and command keys, 

CRT equates, 

Data recorder equates: read and punch I/O instructions, device addresses, error 
codes, and PPL function code masks. 


PWD 


Fixed Addresses for System Nucleus-@FXDEQ 
Note: All labels in this module are prefixed by $. 


1. Entries to nucleus interface routines: maintenance utility aids, physical disk I/O, 
and error logging. 

2. Nucleus communications area equates (Figure 5-1). 

3. Entries to nucleus resident routines and their work areas. 

4.  Equates to develop the nucleus end address. 


Common Core Locations Outside Nucleus—@CANEQ 
Note: All labels in this module are prefixed by $$. 


1. Displacements to fields in input line statements (header and text). 


2. Entry points, masks, switches, and fields in the keyboard and matrix printer I/O 
routines (#DPRIN: DEPRES and DPRINT). 

3. Entry points to the card reader I/O routine (DREAD). 

4. Entry points and locations in the CRT I/O routine (#DSPLY). 

5. Miscellaneous locations. 

6. Keyword program load addresses. 


Cylinder Zero Equates—@C YOEQ 
Note: All labels in this module are prefixed by #. 


1. Volume ID equates. 
2.  SDR/OBR displacements and lengths. 
3. Cylinder O disk addresses and sector counts. 


System Program Area Equates for Relative Disk Addresses and Sector Counts—@SPFEQ 


Note: All labels in this module are prefixed by #$, all sector counts are prefixed by 
#$@, and all core load addresses are prefixed by #55. 


1. Relative disk addresses,.sector count, and core load address of all programs, 
error message modules, keyboard tables, etc., contained in the system program 
file. 


System Work Area Equates for Physical Disk Addresses and Sector Counts-@WKAEQ 


Note: All labels in this module are prefixed by #@ and all sector counts are prefixed by 
#@@. 


1. Cylinder 4: selected system programs, bad-line buffer, and I/O record (file 
directory 1). 

2. Cylinders 5 and 6: file index table (FIT) and work file data area. 

3. Cylinders 7, 8, and 9: virtual memory, 

4. Cylinder 9: temporary work area, core save area, and compiler and interpreter 
tables on disk. 
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File Library Addresses and Tables—-@D/ REQ 
Note: All labels in this module are prefixed by ##. 


1. Labeling method description. 
2. Relative disk addresses, displacements, lengths, and masks for the file library 
directories. 


General Error Message Equates-@ERMEQ, @SEREQ 
Note: All labels in this module are prefixed by @@. 


1, Equates to system message numbers. ##ERMS contains the message numbers and 
associated message text. 


Volume Label Equates—-@VOL EQ 
Note: All labels in this module are prefixed by $#T. 


1. Displacements to fields in the volume label. 
2. Mask values for the files indicator byte. 


Volume Table of Contents (VTOC} Equates—-@VTCEQ 
Note: All labels in this module are prefixed by $@$§. 


1. Displacements to fields in the VTOC index. 
2. Displacements to fields in the VTOC system file labels. 


System Configuration Record Equates—-@CNFEQ 
Note: All labels in this module are prefixed by @#. 


1. Component number, displacement factor, and masks for all system I/O devices, 
2. Displacement factor and masks for disk size, disk drive configuration, and core 
size. ‘ 


Virtual Memory Directory Equates; Directory 1 and Directory 2-@VMDEQ 
Note: All labels in this module are prefixed by @$. 


1. Labeling method description. 
2. Displacements, field lengths, and masks for directory 1 and directory 2. 


Halt Indicator Equates—@HLTEQ 
Note: All labels in this module are prefixed by @H. 
1. All values used in HPL instructions to display halt codes. 


Compiler Fixed Equates-$B$EQU 
Note: All labels in this module are prefixed by B$. 


Addresses of buffers used for disk I/O. | 

PMC generator entry points. 

Core-resident routine entry points and parameter addresses, 
Tables, subroutine precision areas, and miscellaneous equates. 
Common compiler switch locations and masks. 


SO Pe G0, 
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‘Compiler System Equates—$B@EQU 
Note: All labels in this module are prefixed by B@. 


B@C—Pseudo instruction op codes. 

B@L—Pseudo instruction lengths. 

B@B—Condition code values for the BRC pseudo instruction. 

B@P—Execution control code values for PRS and PRU pseudo instructions. 

B@T—BASIC statement type codes. 

B@L-—BASIC statement keyword lengths. 

B@D—Disk addresses of PMC generators, system work file, virtual memory, state- 

ment address table, and branch address table. 

8. Special Characters. 

9. B@LET—Alphabetic characters. 

10. B@DEC—Numeric characters. 

11. Miscellaneous equates for constants, masks, lengths, function and array table 
elements, etc. 

12, Equates for virtual-memory allocation. 

13. Length and displacements in the loader parameter area. 


Interpreter Fixed Equates—$I$EQU 


NAM WHE 


Note: All labels in this module are prefixed by I$. 


1. Fixed core region addresses, 
2.  Core-resident routine entry points and parameter addresses. 
3. Indicator masks, 


Fixed Addresses in Virtual Memory—$V$EQU 
Note: All labels in this module are prefixed by V$. 


V$F—Intrinsic functions. 

V$A—Arithmetic functions. 

V$M—Matrix assignment functions. 

V$X—I/O interfaces, 

V$S—System I/O routines. 

V$C—Conversion routines, 

V$D—Execution-time diagnostic routines. 

V$V-—Interpreter utility routines. 

V$K—Keyboard IOCS character tables. 

Virtual memory subroutine directory containing virtual addresses, disk addresses, 
symbolic labels, and functional descriptions of all entry points in virtual memory 
execution subroutines. 


SO MIAN RWNS 


© 


Desk Calculator Equates-@ V@EQU 
Note: All labels in this module are prefixed by V@. 


1. Miscellaneous equates. 

2. Mode indicators. 

3, Displacements for the procedure table and input table, and from the first byte of 
the register. 

Masks and lengths. 

Output indicator masks. 

Error codes, 

Keyboard keys. 

Keyboard data byte masks for selected keys. 


RSV DS 
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Long Precision Execution Equates—$1@LEQ 
Note: All labels in this module are prefixed by I@. 


1. . Data element equates. 
2. Arithmetic function reference equates. 


3. Pseudo instruction and stack element displacements. 


4. Core pages and miscellaneous equates, 


System Level Equates—-@L VLEQ 
Note: All labels in this module are prefixed by @. 


System level number. 
#TEQU2 


Standard Precision Execution Equates—$1@SEQ 
Note: All labels in this module are prefixed by I@. 


1. Data element equates. 
Arithmetic function reference equates. 


2 
3. Pseudo instruction and stack element displacements. 
4 


Core pages and miscellaneous equates, 
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Section 5. Data Area Formats 


This section contains detailed information concerning these areas of System/3 BASIC: 


System communication area (NUCLES) (Figure 5-1) 
Disk volume format (Figure 5-2) 

Configuration record (Figure 5-3) 

Error history log (Figure 5-4) 

Individual volume statistics and master SIO table (Figure 5-5) 
Disk statistical data recording (Figure 5-6) 

Nondisk statistical data recording (Figure 5-7) 
Outboard recording (Figure 5-8) 

Volume label (Figure 5-9) 

Volume table of contents (Figure 5-10) 

Directories to system library file (Figure 5-11) 

Null directory (Figure 5-12) 

Password directory (Figure 5-13) 

Filename directory block (Figure 5-14) 

BASIC program file structure (Figure 5-15) 

File index table (Figure 5-16) 

File directory | (Figure 5-17) 

Segment descriptor field (Figure 5-18) 

End of file record (Figure 5-19) 

File directory 2 (Figure 5-20) 

System help text file (Figure 5-21) 

Help text record (Figure 5-22) 

Print parameter list (Figure 5-23) 

Disk parameter list (Figure 5-24) 

Disk control field (Figure 5-25) 

Delete parameter list (Figure 5-26) 

Command key table (Figure 5-27) 

IBM-assigned command key functions (Figure 5-28) 
System program file directory —##DRTY (Figure 5-29) 
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Hex Disp 
Field 
pape from Label ee feed Mask 
a‘ $NUCBS : _ 


Description 


Right margin value for printer, 


$LMRGN 
$PRPOS 


$KEYCD 
$TRUNK 
$DTNMB 
$INRPT 
$KYBSY 
$GUFIR 
$NOLST 
$10YES 
$CARDI 


Left margin value for printer. 


Current position of printer head. 


Keyboard indicators: 

Last line truncated {keyboard input). 
Automatic line numbering (card NUM), 
Program interrupted and aborted, 
Keyboard busy (line not yet complete). 
#GUFUD interrupted but not aborted. 
No listing of card input required. 

1/O routines are in core. 

Input from data recorder (bit off 
indicates keyboard input). 


Base register save area, 
Index register save area, 


$TABLN 


$CAERR 


Automatic line number value (inserted 
if tab key is first key depressed). 
Blank must follow $TABLN. 


Error code for interface to #ERRPG. 


$ERRPG 
$ERKEY 


$ERIN2 
$ERFIL 
$ERSFL 


$ERSTK 


$BRSAV 
$XRSAV 


$ERRCT 


$XIND1 
$VMDEF 
$XPREC 


$TRVAR 


$TRALL 
$TFLOW 
$TRACE 
$STEPT 
$RUNIT 


$XIND2 


$ABORT 
$PSTMT 
$PSTEP 
$PAUSE 
$EXCMD 


Indicators for special functions of 
#ERRPG: 

Standard error {set by command 
analyzer #ECMAN). 

Level 1 and 2 messages required. 
Fite line error has occurred. 

File line error occurred in syntax 
checkers, 

Process stacked error codes. 


Count of stacked error codes. 


Primary execution indicators: 
Virtual Memory not empty. 
Execute in long precision (bit off 
means short precision). 

Trace selected 
variables, 
Trace all. 
Trace flow. 
Execute in trace mode, 
Execute in step mode. 
Execute in run mode, 


When X’04’ is on, 
at least one of these 
must be on. 


Mutually 
exclusive. 


Secondary execution indicators: 
Unused bits, 

Abort execution. 

Pause caused by PAUSE statement. 
Pause caused by step mode. 
Program in pause state, 

Program in execution. 


BR1342.1 


Figure 5-1. System Communication Area (NUCLES) (Part lof 4) 
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Hex Disp Field oy 
from Labet Lenath Description 
$NUCBS : 


{/O status indicators: 

Bidirectional printer option available. 
Data recorder present. 

Hard error. 

Program start key not used for auto- 
matic line number. 

Command keys only (bit off for full 
keyboard input). 

CRT can be used for system printer. 
CRT present. 

Matrix printer is not operational, 


$lOIND 
$LNPTR 
$DTRDR 
$HRDER 
$PGMST 


$CMDKY 
$CRTNO 


$CRTAV 
$MPDWN 


System indicators: 

No work area on F1, 

No work area on R1. 

Only MOUNT or INITIALIZE com- 
mand is valid after REMOVE 
command. 

Clear input line buffer. 
Keyboard already enabled, 
Hard halt from #ERRPG. 
Accept rolldown key. 

File may be saved to ** library. 


$INDR3 

$NWRKF 
$NWRKR 
$MOUNT 


$CLBFR 
$NOENB 
$ERHRD 
$LIST 
$DBLOK 


$CRTIN CRT command indicators: 
J Unused bits. 

$CRTSP : Roll stop requested. 

$CRTPU : Pop requested. 

$CRTDN i CRT in rottdown mode. 

$CRTUP ’ CRT in rollup mode. 

$INDR1 System work file status indicators: 

$BASIC 7 Basic program in work file. 

$KEYDT ‘ Keyboard- or card-generated data file 
in work area, 

$PGMDT Program-generated data file in work 
area, 

$FITIN FIT sectors are in core. 

$WFLOK : File protected (only ALLOCATE can 
modify file). 

SWSIND z System work file contains an active 

F file. 

$PRESN : Long precision in use (bit off means 
short precision). : 

$PROCI ‘ Work file procedure indicator. 

$INDR2 System indicators: 

$READY : READY will not be printed. 

$FDIND : Line number list is deleted. 

$FUIND ‘ Line passed. 

$FCIND ~ Single line number deletion, through 
the command analyzer (#ECMAN). 

$DKERR : Disk error has occurred (an entry 
must be made in the individual volume 
statistics). 

$ERPND ‘ Error is pending for history log. 

$CMODE ‘ Conversational mode (bit off means 
utility mode). 

$TMPUT 2 In temporary utility mode. 
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Figure 5-1, System Communication Area (NUCLES) (Part 2 of 4) 
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Hee Die Dec | Field ae 
from Label Dis edath Description 
$NUCBS E ss 
1 


$DKSIZ Total disk cylinders on system: 
Unused bits. 

800 cylinders. 

600 cylinders. 

400 cylinders. 

200 cylinders. 


Reserved. 


$DK800 
$DK600 
$DK400 
$DK200 
$DK100 


$XIND3 
$FILIB 
$USRDR 


Previous contents of $XIND1 (dis- 
placement X‘10’) used by loader to 
determine such things as the precision 
of VM routines, 


Current file library disk address. 
Displacement to the first user directory 
block for the LOGON password. 


13-inch). 
129 Card Data Recorder configured. 
Unused bits. 


| System level number. 


#GUFUD indicators: 

Crush the work file if bit is off. 
Reorder the work file if bit is off. 
Force return to keyboard mode. 
File directory 1 occupies 2 sectors. 
{f only one sector is used, this bit is 
off. 

Procedure call indicator. 

Unused bits. 


$BIGCD 


$LEVEL 


$DBGUF 
$CRUSH 
$REORD 
$IRKEY 
$lOPGS 


$CALLI 


2 
2 
$CONFG Configuration indicators: 
$16CKY 16 command keys present, 
$12K Storage size is 12k. 
$16K Storage size is 16k. 
$22IMP 22-inch matrix printer (bit off means 


$KEYBD Number associated with the keyboard 
table being used. 

$CRPOS .Current position of the CRT cursor. 

$BUFPT Line printer buffer pointer. 

$LPRP3 Line printer indicators. 

$LPROS Line printer print position. 

$NEXTB Relative sector address of next line 
in procedure call. 

$NEXTL Displacement within relative sector 
for next procedure line. 

$DFDET Internal procedure line fetch 
indicator. 

$LPRIO Save area for line printer. 


BR1342.3B 


Figure 5-1 System Communication Area (NUCLES) (Part 3 of 4). 
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Hex Disp 
from Label 
$SNUCBS 


Dec Field 


Description 
Disp | Length Pee 


$VOLID Volume-ID table. If volume is not 
mounted, its entire entry is binary 
O's. If no file library is present on 
the volume, the first byte of the disk 
address is X‘00’. 

Volume-ID for R1. 

File library disk address on R1. 
Volume-ID for F1. 

File library disk address on F1. 
Volume-ID for R2. 

File library disk address on R2. 
Volume-!D for F2, 

File library disk address on F2. 


$VOLR1 
$VOLF1 
$VOLR2 


$VOLF2 


NONOANAN MD 


Disk volume error rate table. 
Total write errors on R1. 
Total read errors on R1, 
Total write errors on F 1... 
Total read errors on F 1. 
Total write errors on R2, 
Total read errors on R2, 
Total write errors on F2, 
Total read errors on F2, 


$PKERT 


6 
2 
2 
2 
2 
2 
2 
2 
2 


$PASWD 


$HISTE Error history log entry. 


SIO instruction OQ code. 
SIO instruction R code. 
Sense bytes, 


$HIST1 75 Last 3 bytes of DCF (Figure 5-25), 


$DATE 120 
$EXFTR 123 


6E 

6E 

6F 

70 

74 

7A 

7B° 
$WFNME 7C 124 
$WFDEF 7c 124 

84 

8A 

8c 

5 
9c 
A3 


IPL date. 
Core expansion factor for over 8k, 


DPL save area for keyword programs, 
Core address of the system printer 
tOCR. 

Core address of entry to relocate CRT. 


$DPLSV 132 
$PRDEV 138 

$CRTAD 140 

$PLST1 8E 142 
$PLST2 9 149 
$PLST3 156 
$C0001 163 


Figure 5-1. System Communication Area (NUCLES) (Part 4 of 4) 


Last |/O parameter list started, 
Second to last parameter list started. 
Third to last parameter list started. 
Constant of X‘0001’. 


_ 
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IPL bootstrap loader (4#MLOAD) Present on all volumes. 
System configuration record Present on all volumes.* 
Volume label Required on all volumes. 
Error history fog Required on all volumes. 
VTOC index Required on all volumes. 
VTOC file labels 00 Required on all volumes. 
System nucleus 4 01 Present on all volumes, * 


IBM program product protection 01 Present on all volumes. * 


Disk system management program IPL ( 01 8 Present on all volumes. * 


PTF Log 01 Present on all volumes. 


Alternate data tracks 00 Six tracks present on all volumes. 
through 
01 
System work file 00 Twelve tracks required on both 
through R1 and F1 (24 tracks total). 
01 
System program file 00 Location defined by user. Must 
through be defined on drive 1. 
01 
System library file 00 Location and size defined by user. 
through 
nn o1 
System help text file nn 00 Location defined by user. 
through 
nn 01 


System PTF file xx 00 
through 
01 


Notes: 
x—Predefined values. 


n—Values that can be defined by the user, These values are defined in the volume label and by 
labels in the VTOC. 


CC HH SS N—Cylinder, head, sector, and number of sectors. 


*—Space reserved but not necessarily used, 


Figure 5-2, Disk Volume Format 
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Bee Mast: Descriptio 
Disp ieee (bits on} Buen 
a 


i | 


Supported. 


Supported for System/3 BASIC, 


Unused, 


Unused. 


Disk size and configuration: 


Model 1; 2 volumes of 100 cylinders each, 


Model 2; 2 volumes of 200 cylinders each. 


Model 2 and 3; 3 volumes of 200 cylinders each 
(F1, R1, and F2), 


Two Model 2’s; 4 volumes of 200 cylinders each 
(maximum configuration). 


Unused, 


20 Printer: 
Supported. 
Supported for System/3 BASIC, 
Unused. 

21 Unused. 

22 Model indicators: 


5213 Model 1 or 2; 132 print positions. 
5213 Model 3; 132 print positions, bidirectional. 
2222 Model 1; 220 print positions. 
2222 Model 2; 220 print positions, bidirectional. 


Unused. 


Keyboard: 


Supported, 
Supported for System/3 BASIC, 
Unused, 


Keyboard options: 


16 command keys, 


8 command keys. 


Unused, 


Keyboard character table, Contains a number that 
corresponds to the keyboard table selected, 


Unused, 


Data Recorder 
Supported 
5496-supported for System/3 BASIC 
129-supported for System/3 BASIC 


Unused. 


Unused. 


Figure 5-3. Configuration Record (Part 1 of 2) 
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Hex | Dec D Mask ucecinein 
Disp } Disp Length | (bits on) P 


ON 
28 40 1 2265 Display Station (CRT): 
29 41 
2C 44 
3C 60 
3D 61 
3E 62 
40 | 64 
FF $255 


ec 
3 
16 
1 
1 
2 
en 


Four-byte entries are reserved for each possible System/3 component. This figure illustrates 
only those areas used by System/3 BASIC. 


Supported, 


Supported for System/3 BASIC. 
Unused. 


Unused. 


Reserved, 


Unused. 


Core size: 
8k. 
12k, 
16k. 


Unused, 


Unused. 


Reserved. 


Last byte of configuration record. 


Note: 


Figure 5-3. Configuration Record (Part 2 of 2) 


Cylinder 0, Head 0, Sectors 3 through 8 
PaeRRaV eee ee 
(ae SDR (F1 only) OBR (F1 only) 


Master SIO Table (F1 only) 


Individual Volume Statistics (all volumes) 


Notes: 


Refer to Figure 5-5 for individual volume statistics and 
master SIO table, 


Refer to Figure 5-6 for disk statistical data recording (SDR). 
Refer to Figure 5-7 for nondisk statistical data recording (SDR). 


Refer to Figure 5-8 for outboard recording (OBR). 


Figure 5-4, Error History Log 


Licensed Material—Property of IBM 


Individual Volume Statistics (present on all volumes) 


ek (pecs Description 
Disp }| Disp ee np. 
12 
10 16 
ic 28 
32 
36 
40 


Figure 5-5. Individual Volume Statistics and Master SIO Table (Cylinder 0, Head 0, Sector 3) 


Count of total temporary errors (includes missing address markers 
and data checks). 


Total write S1O’s issued to this volume {includes verifies). 


Total read and scan S!O’s issued to this volume, 


mt le 


Master SIO Table (F1 only) 


Total write S1O’s issued to R1. 


Total read and scan S!IO’s issued to R1. 


Total write SIO’s issued to F1. 


= 
[ee] 


Total read and scan S|O‘s issued to F1. 


Total write SIO's issued to R2, 


Total read and scan StO’s issued to R2. 


Total write SIO’s issued to F2. 


Total read and scan SIO’s issued to F2. 


Unused to end of sector 3. 
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212 


N N 
b Oo 


Disk Error Counters (2 bytes each) 
Hexadecimal Displacement* 


Error Condition 


Overrun 

Data check in 1D 

Data check on write 
Data check on read 

No record found 
Equipment check 
Missing address marker 


Seek check 


* T—temporary; P—permanent 


Notes: 


1. Statistical data recording (SDR) is present on F1 only. 
2. The remainder of sector 4 and all of sector 5 are not used for error 
recording. 
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Figure 5-6, Disk Statistical Data Recording (Cylinder 0, Head 0, Sector 4) 


Data Area Formats 5-9 
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Nondisk Error Counters (2 bytes each) 


Hex | Dec Dec i 
2 
6 
2 
6 


Keyboard parity check 


Unused 


CRT parity check 
Unused 


00 0 
02 2 
08 
0A 
10 16 


Printer horizontal cycle check (temporary) 
12 18 Printer data check (temporary) 
14 20 Printer margin check 


16 Printer sync check (temporary) 


Printer ROS check (temporary) 


Printer vertical cycle check 


Printer horizontal cycle check (permanent) 


Printer data check (permanent) 


Unused 


Printer sync check (permanent) 


NON NN NY NY NY NNN WN 


Printer ROS check (permanent) 


Unused 


Data recorder not ready 


Unused 


Data recorder compare error 


Unused to end of sector 6 


Note: Statistical data recording (SDR) is present on F1 only. 
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Figure 5-7, Nondisk Statistical Data Recording (Cylinder 0, Head 0, Sector 6) 
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Outboard Recording (2 sectors on F1 only) 


Dec D ae 
Disp | Disp pee escriplion 


Disk OBR Entry (16 bytes) 


BEG Descriptio 
Disp | Disp ren IpHon 


00 

02 2 
06 6 
07 7 
0g 9 
0A 10 


Dec 
Disp |] Disp nae 


Displacement to the last byte of the previous OBR entry. 


Displacement to the last byte of the OBR table 
(always X’O1FF’). 


Unused, 


OBR entries (either 8 or 16 bytes in length). 


Soot au 


Q and R bytes from S]O instruction, 
Sense bytes, 


Retry count for temporary errors (X‘00' indicates a permanent 


error). 


Disk address from disk control field (DCF), 


Number of sectors from DCF, 


Volume-ID from volume label. 


Nondisk OBR Entry (8 bytes) 


Description 


tee 


QO and R bytes from SIO instruction, 
Second sense byte, 


First sense byte. 


o 
aS 


oOo Oo 98 
WwW NY Oo 


Device dependent information. 


o 
ao 


Unused. 


Device Dependent Information 
(displacement X‘04' in nondisk OBR entries) 


CRT CRT address register. 


Printer One-byte command code followed by one-byte count. 


Keyboard Undefined. 
Data Recorder Undefined. 
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Figure 5-8, Outboard Recording (Cylinder 0, Head 0, Sectors 7 and 8) 


Data Area Formats 5-11 
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Hex: | Dec Dec Ms 
Disp; | Disp Length ield Name 
“00 0 3 


Label identifier 


Volume-ID 
VTOC pointer 
Reserved 


Owner ID 


Volume size 


Reserved 


CE cylinder status 


Alternate track 
assignments 


Track usage mask 


Reserved 


Work area 
release level 


Suspected defective 
tracks 


Figure 5-9. Volume Label (Part 1 of 2) 


Licensed Material—Property of IBM 


Field Description 


Must contain VOL. 


Six alphanumeric characters that provide 
unique identification for the volume, 


Disk address of the first sector in the 
volume table of contents, 


Ten alphanumeric characters optionally 
set by the user when the volume is 
initialized, 

Number of cylinders initialized. 
Number of tracks per cylinder. 

Number of sectors per track, 


Number of bytes per sector, 


X’FO'—Track 0 on the CE cylinder is 
defective. 

X'OF’—Track 1 on the CE cylinder is 
defective. 

X‘FF’—Both tracks on the CE cylinder 
are defective. 

X‘00'—Both tracks on the CE cylinder 
are operative, 


One 2-byte entry per alternate track 
containing the disk address of the defec- 
tive track, The entry contains X’0000' 
if the alternate is unassigned, 


Contains a mask of bits in a one-to-one 
correspondence with each track on the 
volume, If the bit:is on, the track is 
assigned to a system file, If the bit is 
off, the track is available, Cylinders 0 
through 3 correspond to displacement 
A8, 


The system release level of the work 
area, 


Twelve 2-byte entries for disk addresses 
of primary data tracks suspected of being 
defective. Unused entries contain 
X'FFFF’, 


BR1350,1B 


ield Fiel 


Help VTOC tag 


Entry in the VTOC index for the system 
help text file. 


Disk address of the first sector allocated 
to the system help text file. 


Help disk address 


PTF VTOC tag Entry in the VTOC index for the system 


PTF file. 


Number of cylinders allocated to the 
system PTF file. 


PTF file size 


Disk address of the first sector allocated 
to the system PTF file. 


PTF disk address 


Number of cylinders allocated to the 
system library file. 


Library file size 


Library VTOC tag Entry in the VTOC index for the system 


library file. 


Work file VTOC tag Entry in the VTOC index for the system 


work file. 


Entry in the VTOC index for the system 
program file. 


Program VTOC tag 


Disk address of the first sector allocated 
to the system program file. 


Program disk address 


Disk address of the first sector allocated 
to the system library file. 


Library disk address 


If the bit is on, the corresponding system 
file is allocated on this volume: 


System files indicator 


X‘80'—System program file. 
X’40’—System work file (R1). 
X'20'—System work file (F1), 
X‘10'—System library file. 
X‘08’—System PTF file. 
X’04'—System help text file. 
X'03’—Unused bits, 


Note: System file disk address in the volume label are ail in the form X’nn0Q0", where nn is the 
first allocated cylinder number, Sector and head are always zero and the drive is always 
set for R1. 
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Figure 5-9. Volume Label (Part 2 of 2) 


Data Area Format 5-13 
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VTOC Index (512 bytes) 


Reserved 


Total unueed Index Tag (10 bytes). 


50 File index tags Hex 


(4 per System file name 
sector) 


File label sector address 


File Label (64 bytes) Relative displacement 


within sector to last 


File label 1D number 


Hex 
Disp 


Reserved 
System file name 


Reserved 


File type; X‘00' for 


i 
Note: The last 128 all System/3 BASIC files 


bytes of sector 23 
are unused. 


Reserved 
Starting disk address 


Ending disk address 


Reserved 
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Figure 5-10, Volume Table of Contents (VTOC) 


5-14 


Licensed Material—Property of IBM 


mee 


Directories to Systern Library File (first 7 sectors) 
Null Password Filename (**) 
Directory Directory Block 
2 3 


Notes: 


1. Refer to Figure 5-12 for null directory format. 

2. Refer to Figure 5-13 for password directory format. 

3. Refer to Figure 5-14 for filename directory block format. 

4, The first two filename directory blocks, immediately 
following the password directory, are always the first 


**directory block followed by the first * directory 
block, 
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Figure 5-11. Directories to the System Library File 


Null Directory (1 sector} 


, escripti 
Entry count Count of active entries in this directory, 
Library size Number of cylinders in the file library. 
Unused 


Null entries Up to 42 six-byte entries, Each entry 
is associated with null space in the 
file library. 


Null Directory Entry (six bytes) 


Null space address Relative disk address of the null space 
associated with this entry. 

Size Number of contiguous null sectors. 

Unused 


BR1353 
Figure 5-12. Null Directory 


Data Area Format 5-15 
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Password Directory (4 sectors) 


ex Dee Der Field Name D ipti 
Disp Disp Length } a SaCHPELON 


Entry count Count of active entries in this directory. 


Unused 


Password entries Up to 85 twelve-byte entries, 


Password Entry (12 bytes) 


Password Contains *biKBBHB, **KBbKY, or a 
user defined password. 
: Filename directory Relative disk address of the first filename 
address directory block associated with this 
Password, 
Unused 
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Figure 5-13, Password Directory 


Licensed Material—Property of IBM 
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Filename Directory Block (2 sectors) 


: 4 
Lena Been 


Block address 


Forward link 


Entry count 
Unused 


Filename entries 


Relative disk address of this block. 


Relative disk address of the next block 
in this directory. X’0000' indicates the 
last block, 


Count of active entries in this block. 


Up to ten 50-byte entries. Each entry 
is associated with a user file saved under 
a password. 


Filename Entry (50 bytes) 


Dec 
D ti 


Filename 
File address 
File length 


FIT length 


Status indicators 


Number of lines 


Date 
File header 


Unused 


Figure 5-14, Filename Directory Block 
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The name of a file as defined by the user. 
Relative disk address of the file. 


Number of sectors allocated to the file, 
Includes FIT. 


Number of sectors allocated to the file 
index table (FIT). 


If the bit is on, the file is: 


X’80’'—A BASIC program file. 

X’40’—A data file generated from 
keyboard or cards, 

X‘20'—A program-generated data file, 

X‘10’—A pooled file. 

X’08’—A protected file. 

X‘04’—An open file. 

X'02'—A data file in long precision. 

X'01'—A procedure file. 


Number of statement lines in the file 
+1 (for the system generated EOF 
record). 


MDY in packed decimal. 


File identification information specified 
by the user, 


Data Area Format 5-17 


5-18 


File Index Table (Figure 5-16) 


05 


06 


SDF} (32) SDF | 200] (32) [soF] cor Nai 


Sample Data Block Containing EOF (1 sector) 


Field Name Description 


1 Linkage indicator Sector displacement of the next logical 
data block (ascending line number order), 
relative to the first data sector in the file. 
Contains X00’ when linkage is to next 
physical block, 


Segment descriptor Refer to Figure 5-18 for format. This 
field (SDF) SDF is associated with the second segment 
of statement 190 in the preceding example. 


32 Data Second segment of statement 190. Data 
length in the example is 32 (X‘20’). 


37 4 Segment descriptor Refer to Figure 5-18 for format. This 
field (SDF) SDF is associated with statement 200 
(not segmented) in the example, 
41 2 Line number Binary line number. The line number in 
the example is 200. 


BR1356.1 


01 
05 
25 
29 


Figure 5-15, BASIC Program File Structure, Example (Part 1 of 2) 


Licensed Material—Property of IBM 


The statement type code is used by the 
compiler to classify BASIC program 
statements. Bit 0 (X’80’) on in this byte 
causes program statement to be bypassed 
on compilation (disable code). Data state- 
ments to be bypassed during input opera- 
tions to a BASIC program during 
execution, 


‘Bealamnent type code 


First and only segment of statement 200. 
Only the first segment is prefixed by the 
line number and statement type code. 


Refer to Figure 5-18 for format. This 
SDF is associated with the end-of-file 
(EOF) record in the example. 


Segment descriptor 
field (SDF) 


EOF record Refer to Figure 5-19 for format. The 
hexadecimal value of an EOF record is 
always X‘2710751C’, The EOF record 


need not be followed by a null SDF. 


Refer to Figure 5-18 for format. A null 
SDF can be one to four bytes in length. 
X’80' in the first byte identifies a null 

SDF. 


All space in a data block that follows a 
null SDF is referred to as a null segment. 


Null segment 
descriptor field 
(SDF) 


Null segment 
(free space) 


: The data portion of all BASIC program statements is packed by replacing repetitions 
(more than two characters jong) with a single character and a repetition count. The 
repetition count value cannot exceed X‘1B’. It must be a lower value than the lowest 
valid functional character (X‘1C’), EOF code. Refer to “Pack BASIC Program 
Statements (GCPACK)” in Section 3. 
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Figure 5-15, BASIC Program File Structure, Example (Part 2 of 2) 
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File Index Table (up to 3 sectors) 


Total data blocks Number of disk blocks (sectors) in the 
file that contain statements or data. 

Total lines Number of program or data statements 
in the file, 

Unused 

Save area Used only by the work file update/ 
crusher program (#GUFUD), 

FIT pointer Core address of the first inactive FIT 
entry. 


FIT entries Up to 189 four-byte FIT entries. Each 
active entry is associated with a block 
of data in the file. 


FIT Entry (4 bytes) 


1 Disk address Sector displacement of the data block 
associated with this entry, relative to 
the first data sector in the file. 

2 Line number Highest statement line number, in 
binary, associated with the referenced 
data block. 

1 Free space Number of unused bytes in the ref- 
erenced data block (length of the null 
segment). 
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Figure 5-16. File Index Table (FIT) 


5-20 | 
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File Directory 1 (first sector) 
Up to Eight 32-Byte Data File Entries 


File Directory 1 Data File Entry (32 bytes) 


If the bit is on, the device is: 


X‘80'—Permanent disk 
X‘40'—Scratch disk 


Device code 


X'20’—Card 
X‘10'—Printer 
X‘08’—CRT 


X'07'—Unused bits. 
X‘00' in this byte indicates the entry 
is not active. 


GET/PUT filename 
Volume-ID 


From an ALLOCATE system command. 


From the ALLOCATE (permanent disk 
only) system command. 


Number of sectors allocated to a scratch 
disk file. From the ALLOCATE (scratch 
disk only) system command. 


From the ALLOCATE (disk) system 
command. 


Scratch file size 


Password 


Name assigned to the file in the file 
library. From the ALLOCATE (disk) 
system command. 


Filename 


In the first data file entry, this byte con- 
tains the page number of the second 
sector of file directory 1 in virtual mem- 
ory. When there is no second sector, this 
byte contains X‘00’, This field is used 
only in the first entry. 


Note: Only the device code and GET/PUT filename are present for nondisk files. 


BR1358A 


Second sector 
indicator 


Figure 5-17, File Directory 1 Format 
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File Directory 1 (second sector) 


Up to Four 32-Byte 
Data File Entries 


Segment Descriptor Field (4 bytes) 


a dag 


Null segment indicator X’80' in this byte indicates the remainder 
of the data block is unused. The remainder 
of this null SDF, if present, contains 
binary O's. A null SDF is used to delimit 
the active data segments in each data 
block. 


Segment Jength Binary byte count of the data segment 


that follows this SDF. This count includes 
the four bytes of the SDF. 


Multisegment If the bit is on, the segment is: 


indicator X'00’—A complete statement. 
X’01'—The first of a multisegment 
statement. 
X‘02'—The last of a multisegment 
statement. 
X'03'—Part of a multisegment statement, 
but not the first or last. 


Unused 
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Figure 5-18, Segment Descriptor Field (SDF) 


End of File Record (4 fend of File Record (bytes) 


Field Name Description 
ao ah ee 


Line number The binary line number generated in an 
EOF record is always X'2710'. This value 
is equal to 10,000 which forces this record 
to always be the last record in the file. 
This value exceeds the maximum Jegal 
line number that the user can enter. 


Statement type code Contains a value of X‘75’. This is the 
statement type code for an EOF record. 


EOF code Contains a value of X‘1C’. This identifies 
this record as EOF. The total contents of 
an EOF record is always X‘2710751C’. 


Note: Only BASIC program files and keyboard-generated data files have a four-byte EOF record, 
Program-generated files have only the one-byte EOF code (X‘1C’) following the last data 


element. 
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Figure 5-19, End of File Record (EOF) 


5-22 
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File Directory 2 (second page in virtual memory) " 


Current file 
displacement 
02 Scratch file status 
03 Program name 
OB Null directory indicator 
oc Unused 


Description 


During execution of a BASIC program, 
this field contains the displacement from 
the start of the directory to the entry 
associated with an activated data file. 
Only one file can be activated (ADF) at 
any time. X‘00' indicates that none of 
the files is activated. 


If this byte is not X’00’, scratch disk files 
have been or are currently being used by 
the program in execution, 


Filename of the program currently 
in virtual menory. 


X’FF' in this byte indicates the nult 
directory is saved. X’00' indicates it is 
not saved. 


Up to twelve 16-byte entries. Each entry 
is associated with a GET or PUT filename 
referenced in thé BASIC program. 


Data file entries 


File Directory 2 Data File Entry (16 bytes) 


Field Deseripti 


If the bit is on, the device is: 


Device code 


X’80’—Permanent disk. 
X‘40’—Scratch disk. 


X‘20'—Card. 
X'10'—Printer. 
X‘08'—CRT. 


X’07’—Unused bits. 

X‘00’ in this byte indicates the entry is 
not active. This byte is copied from the 
file directory 1 entry associated with 
the same GET/PUT filename. 


01 1 1 1/O status If the bit is on, the file is: 


X‘80'—Defined on an input only file. 

X‘'40’—Defined on an output only file. 

X’CO’—Defined on an input/output file. 

X‘20'—Long precision; bit is off for 
standard precision. 

X‘10'—Program-generated data file; bit is 
off for keyboard or card-generated 
data files. 

X‘08’—Currently activated for input. 

X'04’—Currently activated for output. 
X'08’ and X‘04’ cannot both be 
on, 

X‘02'—EOF indicator (output files only). 

X‘01’—Unused bit. 


1/O area address Virtual memory page number of the first 
1/O buffer allocated to this file. Multiple 
buffers allocated to the same file are 

contiguous. 
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Figure 5-20. File Directory 2 Format (Part 1 of 2) 
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1/O area size Number of contiguous buffers (pages) 
allocated to this file. 


Current |/O area The virtual address, within the buffers, 
pointer used to GET or PUT the next data 
element. 


Disk address Physical disk address of the first sector 
of data in the file. This address references 
the file in the system library file. 


Current disk Relative sector displacement of the next 


pointer block of data to be read into or written 
from the I/O area. This displacement is 
relative to the preceding physical disk 
address. 


File size Total number of sectors in the file con- 
taining data. 


SDF count Current count of the number of data 
bytes remaining in the current segment 
(keyboard-generated files) or bytes 
remaining in the I/O area (program- 
generated files). 


Unused 
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Figure 5-20. File Directory 2 Format (Part 2 of 2) 
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System Help Text File 
Text (Figure 5-22) 


Help Text Index (starts on first cylinder boundary) 


Fi sinha 


Sl Keyword Entry (variable length) 


j D . . 
Dip Sacer 


Figure 5-21. System Help Text File 


This value is compared to a level number 
constant in the HELP keyword program. 
They must be equal to access the help 

text. 


Level number 


Unused 


One entry for each word recognized by 
the HELP function. The last entry is 
followed by a single byte containing 
X‘FF’ to identify the end of the index. 


Keyword entries 


Length (n), in bytes, of the word in this 
entry. 


Keyword length 


Keyword EBCDIC character string (no blanks). 


Displacement from the start of the sys- 
tem help text file (start of index) to the 
first byte of first help text record to be 
printed for this keyword. (The first 2 
bytes are sector displacement; the last 
byte is byte displacement.) 


Text displacement 
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Help Text Record 


Hex Dec Dec P Pees 
00 4 


Segment descriptor Refer to Figure 5-18 for format. Records 

field (SDF) are fragmented across sector boundaries. 
Each segment of the record is preceded 
by a SDF. The system help text file is 
organized in a manner similar to that of 
the system library file (Figure 5-15). 

04 2 Print line length Number of characters in the line to be 

printed. X‘0000’ causes a blank line to be 
printed. 


End-of-text X’FF' indicates this record is an end-of- 
record indicator text record, This byte contains X‘00’ 
for all print lines. 


Length (n) is determined by the SDF. 
If the print line length is zero, one 
dummy byte is present (X‘00'). 


Note: The print line length and end-of-text record indicator fields are present only in the first 
segment of a multisegment record. 


End-of-Text Record 


Hex Dec Dec : and 
00 0 4 SDF 


Refer to Figure 5-18 for the format 
of the SDF. 


Number of operator Number of three-byte operator option 

options entries in this record. X‘0000’ in this 
field indicates no operator options are 
present and causes the HELP function 
to terminate. 


End-of-text This byte contains X‘FF’ for all end- 
record indicator of-text records. 


Operator option Consecutive three-byte entries, con- 

entries taining the byte displacements from 
the start of the system help text file 
(start of index) to the first byte of the 
first help text record to be printed after 
the multiple-choice response. The first 
displacement corresponds to option A, 
second to B, etc. n is equal to the 
number-of-operator-options field times 
3. 


Note: An end-of-text record can also be a multisegment record. 
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Figure 5-22, Help Text Records 
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Print Parameter List (four a 


Data Length Data Area Address 


Character Count when Printing or Punching 
X’80’—Printer Carriage Return 


X'00’—Printer Backspace 


Device Type 


Hex ; 


Insert 


Print 


CR Punch Return cursor 


Print and return 
cursor 


Print and CR Insert and punch 


Wait Backspace cursor 


Backspace 


Backspace and Wait 


index 


Backspace cursor 


Wait Wait Wait 


Roll down and 
print 


Not used Wait 
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Figure 5-23. Print Parameter List (PPL) 


Data Area Format 5-27 
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x’00'- 
x'01'- 
x'02'- 
X'FF’- 


The table below shows the Head Number 
head, sector, drive, and 
volume that are selected 
for each value that can be 
contained in byte 2. Volume |D (off = removable, on = fixed) 


Sector 


19) 
1 
2 
3 
4 
5 
6 
7 
8 
9 


Disk Parameter List {6 bytes) 


Disk Address Data Area Address 
Count ; 
Loa eae I ae ae 


Sector Number 
Drive ID (off = 1, on = 2) 


Head 0 Head 1 


Taf [Papa] ve] 
00 01 02 03 80 81 82 83 


Notes: 


1. Bytes 3-5 are not 
used for a seek 
function. 


2. Bytes 1-5 are not 
used for a wait 
function. 
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Figure 5-24, Disk Parameter List (DPL) 
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Sector 


Head 0 
{byte 3 
value) 


Disk Control Field (4 bytes} 


Head 1 
(byte 2 
value) 


2—Head and Sector 


1—Cylinder 


3—Number of Sectors—1 


OMDNMOBWN-O 


Defective Track 
Alternate Track 


Cylinder Number | 

The table at the left shows 
the head and sector that | Hear Nutapet 
are selected for each value | Sector Number 
that can be contained in Forward Seek 
byte 2. (Gand 7 must be. 

zero if not a seek-op) 

Number of Sectors to be 


Transferred Minus 1 


Undefined 


(4 bytes) 
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Figure 5-25, Disk Control Field (DCF) 


X‘1C00' 


X‘'1C04’—Active Delete Entry 


X‘1C09’—Delete Parameter List 


Secondary Input Buffer 


4- - 

single Line | eos | 1. “Single line” is the 2-byte binary line number of a 

single statement to be deleted. 

2. “Lo line’ is the 2-byte binary lower limit of a range 
of line numbers to be deleted. 

Be “Hi line” is the 2-byte binary upper fimit of a range 
of line numbers to be deleted. 

4. EOS is a single-byte end-of-statement character, 

5. Multiple single line and/or range delete entries may 
be present. These entries correspond to the param- 
eters of a user-supplied DELETE or EXTRACT 
system command. 


Lo Line Hi Line 


a a Eee a ee 
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Figure 5-26. Delete Parameter List 


Data Area Format 5-29 
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Command Key Table (1024 bytes) 
Dec 
a Length 


Field Name Description 


Length of each command assigned to command keys 
1 through 11 (one byte of this field is assigned to each 
command key). For the IBM-assigned functions of 
command keys 1, 4, and 7, the length of the command is 
set to X‘00’. The range of legal values is X‘00’ through 
X'BA'. 


Command lengths 


Unused 


This area is divided into eleven 90-byte entries, one for 
each of the command keys 1 through 11. Each entry 
contains the command text assigned to one of the 
command keys 1 through 11. 


Command text 
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Figure 5-27. Command Key Table (##CKTB) 


Command 


Key IBM-assigned Function 


Enters desk calculator operations 
RENUMBER 

SAVE 

Used in editing the last line entered 
LIST 

CONDITION 

EDIT generated file name 

RUN 

WRITE CRT 

WRITE CRT, PRINTER 

WRITE PRINTER 


1 
2 
3 
4 
5 
6 
7 
8 
9 
i¢) 
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Figure 5-28. IBM-assigned Command Key Functions 
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System Program File Directory Entry (16 bytes) 


) Disp |Disp {Length Field Name Description 


Component name | The name of the system component (program, table, etc.) 
associated with this directory entry. 


Disk address Relative disk address of the component in the System 
Program File. This relative disk address points to the first 
sector occupied by the component. 


Load address Starting storage load address for the component. 


Sector count Total number of ‘contiguous sectors in the System 
Program File occupied by the component. 


Program number {| This is a number assigned sequentially to the entries in 
this directory. 
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Figure 5-29. System Program File Directory—##DRTY 


Data Area Format 5-31 
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Section 6. Diagnostic Aids 


MAINTENANCE UTILITY AID PROGRAM—#ZUTMO 


Eleven options are provided by the maintenance utility aid program for diagnosing and 
correcting problems in System/3 BASIC. Certain operating procedures must be followed 
to initiate and successfully complete the specific option to be performed. 


Operating Procedure 


Performing a system stop, system reset, and system start activates the maintenance utility 
aid program (press SYSTEM STOP, set SYSTEM RESET to ON, and then set SYSTEM 
START to ON). Before activating this program, consideration should be given to manually 
recording certain information that is lost when this program is executed (for example, 
recording the IAR and ARR, or recording the last three I/O parameter lists from the 
system communication area), 

This utility program should not be activated twice in succession except to perform 
diagnosis or problem correction on the maintenance utility aid program itself. A pro- 
cessor check may result if the R option is selected during the second successive entry 
to this program if the work file is defined. To terminate a selected option before it is 
completed, press the inquiry request switch; the maintenance utility aid program is 
then reinitialized, and one of the ten options can be selected. Refer to Section 3 for an 
internal description of the maintenance utility programs. 


CAUTION 

It is possible to destroy the work file if the maintenance utility aid program (#ZUTMO) 

is activated during crushing or reordering of the work file by the work file update/ 

crusher program (#GUFUD). 

Upon activating the maintenance utility aid program, the following message is printed: 
CD, DD, VM, CP, DP, DC, DW,H,R,T,M.... 


and the keyboard is enabled, The operator should type in the letters representing the 
desired function and press the carriage return key. The functions available are: 


CD—Core dump 

DD—Disk dump 
VM—Virtual memory dump 
CP-—-Core patch 

DP—Disk patch 

DC—Disk compare 
DW-—Disk write 

H—Halt 

R—Return to operating system 
T—Trace 7 
M-—Library map and test 


Upon completion of any of the options except H, R, or T, the option list is printed 
again, 


CD—Core Dump Option 
Entering CD invokes the core dump option. #ZUTMO then requests the dump limits: 
ENTER START ADDRESS .......... 


ENTER END ADDRESS ............ 
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The reply to each request should be a four-character hexadecimal address followed by a 
carriage return. The reply to the first message must have been entered correctly before 
the second message is printed. If these four characters indicating the addresses to be 
included in the dump are not valid, the message(s) are printed again. Following the entry 
of the address, the operator may wish to type in more information that will in some way 
identify or describe the dump he is taking. These additional characters may be added 
without interfering with the dump and might be instructive in reviewing it. 

Once the dump limits have been entered correctly, core is dumped, 32 bytes per line 
with an EBCDIC interpretation for each line, beginning at the specified start address 
and terminating at the specified end address or when the end of core is reached, _ 

Two headings are printed at the top of the dump. The first indicates the contents of 
the two index registers (BR and XR) and the PSR. The second indicates the columns 
for the beginning address of each line, the position of the data in the line, and the inter- 
pretation field of the line. Any characters in the line that are not printable are represented 
in the interpretation as EBCDIC periods. 


DD—Disk Dump Option 


Entering DD invokes the disk dump option. #ZUTMO then requests the read disk address 
and the sector count: 


ENTER RD DISK ADDRESS.......... 
ENTER SECTOR COUNT ............ 


The user should reply to the read disk request with a four-character hexadecimal address, 
indicating where he wishes the dump to begin, followed by a carriage return. As in the 
core dump, he may add additional comments if he wishes. The message is repeated if 

the entry is incorrect, The reply to the sector count message should be the decimal 
number of sectors to be dumped followed by a carriage return. When both messages 
have been entered successfully, the specified number of sectors, beginning at the read 
address indicated, are dumped, 32 bytes per line with an EBCDIC interpretation for 

each line. A special first header indicating the sector address is printed preceding the 
dump of each sector. The other header is the same as that in the core dump, while the 
addresses printed are displacements from the sector address. The dump terminates after 
all of the requested sectors have been dumped or after the last physical sector is dumped. 


VM—Virtual Memory Dump Option 


Entering VM invokes the virtual-memory dump option. The program then requests the 
first and last line numbers to be included in the dump: 


ENTER FIRST LINE #............ 
ENTER LAST LINE #............. 


The user should reply to the request with a one- to four-digit decimal line number, from 
the BASIC program he wishes for the beginning of the dump, and a one- to four-digit 
decimal line number, indicating where he wishes the dump to end. A carriage return 
must follow each reply. If the entered data is incorrect, the message(s) is (are) reprinted. 
The following line represents an example of information that is included in the dump: 


0190 4F09 STH OOBE 6400BE 


where 0190 is the line number being interpreted, 4F09 is the virtual address of the 
pseudo code being interpreted (see Figure 7-1), STH is the pseudo code being inter- 
preted, OOBE is the operand of the pseudo code, and 6400BE is the instruction that 
results when an operation code is substituted for the pseudo code to which it corres- 
ponds. This kind of interpretation is listed for every pseudo code that is necessary to 
execute the instruction at a particular line number, beginning with the specified line 
number and ending with the last line number requested. 
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CP—Core Patch Option 


Entering CP invokes the core patch option. #ZUTMO then requests the beginning core 
address and the patch data to be put there: 


ENTER START ADDRESS ........... 
ENTER PATCH DATA, USE SPACE FOR NO CHANGE 


The reply to the first request should be a four-character hexadecimal address specifying 
where the patch should begin. If the data is not valid, the request is made again. The 
reply to the second request should be contiguous, hexadecimal patch data which will be 
terminated by a carriage return. If any errors exist in the patch data, a question mark is 
printed and all of the data must be reentered. If the data is valid, it replaces the data 
previously at the specified address. If no change is desired at the indicated address, a 
space should be entered followed by a carriage return. To be certain the patch is correct, 
the operator may wish to take a core dump of the area he wishes to patch before entering 
the CP option to verify the patch address, and possibly again after the function is com- 
pleted to verify that the entered data is at that address. 


DP—Disk Patch Option 


Entering DP invokes the disk patch option. #ZUTMO then requests a displacement from 
a specified disk address where the patch should begin and the patch data that should be 
placed there: 


ENTER WR DISK ADDR ............. 
ENTER DISPLACEMENT............. 
ENTER PATCH DATA, USE SPACE FOR NO CHANGE 


The reply to the first request should be a four-character hexadecimal disk address fol- 
lowed by a carriage return. If the data is invalid, the message is reprinted. The reply to 
the second message should be the two-digit hexadecimal displacement from the disk 
address entered where the patch should begin. Again, if the data is invalid, the request 

is repeated. The reply to the third message should be contiguous, hexadecimal patch 
data which is terminated by a carriage return. If an error occurs anywhere in the entered 
patch data, a question mark is printed and all of the data should be reentered. Upon 
successful entry of all replies, the data is placed at the proper displacement from the 
specified address. If a space is entered in response to the patch data request, no change 
is effected. The operator may wish to verify address and data by using the DD option. 


DC—Disk Compare Option 


Entering DC invokes the disk compare option. The program then requests the two disk 
addresses that are compared and the number of sectors for which the comparison should 
continue: 


The reply to the first request should be a four-character hexadecimal disk address of the 
first-sector to be compared. The message is reprinted if the data is invalid. The second 
reply should be a four-character hexadecimal disk address of the sector to be compared 
against the first. This message is also reprinted if the entered data is invalid. The entered 
sector count should be the decimal number of sectors to be compared. Again, the mes- 
sage is repeated if the response is invalid. If the data at the specified addresses does not 
correspond, a message is printed indicating the two disk addresses, the displacement 
from them where the difference occurred, and the data found at each disk address. Only 
the first nonequal byte of data is documented for each pair of sectors compared. If no 
difference is indicated, it is assumed that the sectors compared equally. The comparison 
is continued until all sectors have been compared. An example of the use of this option 
would be to determine if a system library has changed. The library in question could be 
compared against the one whose contents are known. 
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DW-—Disk Write Option 
CAUTION 


The operator should be certain that the address he selects for writing is the sector he 
intends to change. If there is a possibility of having to restore the sector that will serve 
as the write address, a disk dump should be taken so that the data can be recreated. 


Entering DW invokes the disk write option. #ZUTMO then requests the read and write 
disk addresses: 


ENTER RD DISK ADDR........... 
ENTER WR DISK ADDR .......... 


The reply to the first request should be a four-character hexadecimal disk address that is 
to be read. If the data is invalid, the message is reprinted. The reply to the second mes- 
sage should be a four-character hexadecimal disk address where the sector indicated by 
the first address should be written. The READ sector is then copied to the sector indi- 
cated by the WRITE address, 


H—Return to System with Halt Option 


Entering H invokes the halt option. All of core that was saved. other than the system 
nucleus area, including any patches made in saved core, is restored and a system hard 
halt (halt code = D5) results. At this point, the operator may choose to reenter the 
maintenance utility aid program, re-IPL, or manually intervene using the CE console to 
set the [AR to cause program execution other than the halt. 


R—Return to System Option 


Entering R invokes the return to system option. All saved core, including any patches 
made to the saved core, is restored and control is returned to the system. The system 
nucleus area is not restored to its previous state; therefore, it may be necessary to re- 
IPL the system. The system does not resume the RUN command, and is no longer in 
a pause state if it was in such a state upon entering the maintenance utility aid program. 
Entering R on a successive activation (repeated entry) of the maintenance utility aid 
program may cause unpredictable results (e.g., program check) if the work file is defined. 
In this event, the system should be re-IPLed. 


T—Trace Option 


Entering T reverses (activates/deactivates) the maintenance trace option. When the main- 
tenance trace option is activated, the names of all programs loaded by the system nucleus 
are displayed on the system printer. These names correspond to the names listed in 
Section 4. 


Note: The programs that are not loaded to core by the nucleus (system nucleus, com- 
piler overlays, etc.) are not indicated by the trace option. 


Upon reversing the trace, core is restored and control is returned to the system (refer 
to “R—Return to System Option’’). 


M-—Library Mapping Option 
Entering M invokes the library mapping option. The following message is displayed: 
ENTER OPTION 1,2,OR3..... 


The reply to this request can be any one of the three numbers, 1, 2, or 3, followed by a 
carriage return. The numbers have these meanings: 


1—Map null and password directories 
2—Map a specified password 
3—Map the entire library 


Licensed Material—Property of IBM 


Sa 


Page of LY34-0001-1 
Revised January 1972 
By TNL LN34-0075 


If the reply is invalid, the message is reprinted. 
This message is displayed to request the starting disk address of the library: 


ENTER LIBRARY ADDRESS ........ 


The reply to this request is the four-character hexadecimal physical disk address of the 
File Library area (first sector), followed by a carriage return. The physical track address 
(requires conversion) of the File Library is obtained by a VTOC display. If the reply to 
the preceding message is invalid, the message is reprinted, The following paragraphs 
describe the processing for each of the three options. 


Option I: This option maps the null and password directories, These items are displayed: 


Disk address of the null directory 

Total number of active entries in the null directory 

Physical disk address of each null area in the library 

Relative disk address of each null area in the library 

Length of each null area expressed in sectors 

Disk address of the password directory 

Total number of active entries in the password directory 

Each password with the physical disk address of the first user directory block 
associated with it 


CNIADARWNHE 


This option tests the following items: 


1. Valid entry count fields in both directories 
2. All disk addresses are within the library boundaries 
3. Library is within the configured disk size 


Option 2: This option traces the user directory blocks and files for a specified password. 
The following message is displayed: 


ENTER PASSWORD ..... 


The reply to this request can be any of the passwords in the password directory. If the 
reply is invalid or the password is not in the directory, the message is reprinted. The file- 
name, disk address, size, status, and header is printed for each file linked to the specified 
password. The status of the file is defined by these numbers: 


1—Procedure file 

2—Data file in long precision 

3—Open file 

4—Protected file 

5—Pooled file 
6—Program-generated data file 

7—Data file generated from keyboard or card input 
8—BASIC program file 


The defaults for the preceding status indicators are short precision, closed, unprotected, 
etc. 
| Except for the procedure file, this option tests the following items: 


Valid FIT 

All lines of the file are contiguous 

File extends to the end of the allocated space 

An EOF is present on program-generated files 

All elements in a program-generated file are contiguous 

User directory blocks have no more than 10 entries 

Any user directory block having a forward link contains 10 entries 
First user directory block for each password has a zero entry count. All other user ° 
directory blocks have a non-zero entry count. 

All disk addresses are valid and within the library boundaries 

10. Library is within the configured disk size 


SAIAMWARWNE 
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If an error is detected by option 2, a message is printed and processing continues when- 
ever possible, Certain linkages.must be valid in the library directories in order to continue 
processing; if not a program check may occur. The error is in the last file printed in this 
case. 


Option 3: This option maps the entire File Library. Entries for each null space, user 
directory block, and file are sorted, by ascending disk addresses, and printed, Each entry 
contains the filename, password (if applicable), physical and relative disk addresses, size, 
and file status (if applicable). File status is defined by these numbers: 


1—Procedure file 

2—Data file in long precision 

3-—-Open file 

4—Protected file 

5—Pooled file 

6—Program-generated data file 

7—Data file generated from keyboard or card input 
8—BASIC program file 


The defaults for the preceding status indicators are short precision, closed, unprotected, 
etc. 
This option tests the following items: 


1. User directory blocks have no more than 10 entries 

2. Any user directory block having a forward link contains 10 entries 

3. The first user directory block for each password has a zero entry count. All other 
user directory blocks have a non-zero entry count. 

4 Valid entry count fields in the null and password directories. 

5. All disk addresses are within the library boundaries 

6. The library is within the configured disk size 

7 There are no gaps or overlaps in the library 

8 Directory entries for pooled files have the same file disk address and length. 


The PTF command initiates the program temporary fix (PTF) function. This function is 
used to apply PTF patches to a System/3 BASIC system program file or the system help 
text file. For PTF purposes, any component residing on cylinder 0 is considered part of 
the system program file. (PTF’s to the disk system management program in a co-resident 
system must be applied using the PTF function in the disk system management program.) 
This command may be entered from the keyboard or the data recorder if in read card 
mode. 
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Following the PTF command, a PTF is entered using four types of secondary com- 
mands called PTF statements. If these statements are entered from the keyboard, they 
are typed as if they were system commands, with the only exception being that rejection 
of the statement returns control to PTF mode rather than to the system. Thus, if an 
invalid statement is typed, the statement may be reentered. 


Note: If a DATA statement is reentered, tabbing across the input line generally does 
not reproduce the checksum value originally entered, but instead leaves four blanks in 
its place. 


The only way to abort PTF mode following the PTF command entered through the 
keyboard is to use inquiry request. This aborts the PTF function being performed and 
returns control to the system with any partially entered PTF information being lost. 
Inquiry request does not abort the PTF function after a valid PTF END statement has 
been entered. A return is made to keyboard mode upon complete processing of the PTF 
END statement. 

If the PTF command is entered from the data recorder, all subsequent PTF statements 
are read from cards automatically, similar to normal system input from the data recorder. 

| Columns 88-96 (73-80 if configured for a 129) of each card containing a PTF statement 
after the PTF command are ignored; thus each card can contain a sequence number. 
Each card is listed as it is read. Any error detected in the PTF function, while in card mode, 
causes the entire PTF function to be aborted and a return to be made to the system. If 
inquiry request is used while reading cards, this aborts the PTF function being performed, 
as long as a valid PTF END statement has not been read yet. 

Any line entered in PTF mode, other than the HDR, PTF, DATA, and END statements 
described, is rejected and a question mark is printed. 

PTF’s applied to the system can be listed by dumping the PTF Log (e.g., disk dump). 
Each entry in the log is six bytes in length. 


Error Conditions 


The command is rejected and PTF mode is not entered if any of the foilowing errors 
occurs: 


1. The system work area has not been allocated on the disk containing the current 
system program file. This work area is used as a temporary storage for the PTF 
data. 

2, Any character, other than blank(s) or a carrier return, is entered following PTF. 


HDR Statement 


Syntax” 
HDR q ptfid d cksum d disk-spec [d disk-spec] 


This statement defines the start of a PTF and must be the first statement entered fol- 
lowing the PTF command. The parameters of this command are: 


1. ptfid—Six-character PTF identification. For programs in the system program file, 
the first three characters are .BS and the last three characters are the PTF sequence 
number (in range 000-255). For the help text file the PTF ID is .BH followed by 
the three-character PTF sequence number. 

2.  cksum—The four-digit checksum for this statement. (It includes the HDR and 
ptfid characters but not the checksum and the disk specifications.) 

3. disk-spec—The unit containing the system program file or system help text file 
to which the PTF is to be applied. 

4.  [disk-spec] —If this parameter is present, it specifies that the PTF will come from 
disk rather than being entered from the keyboard. The specified unit must contain 
a System/3 BASIC PTF file (VTOC name is PTF). This file can contain several 
PTF’s in the form of card images containing HDR, PTF, DATA, and END PTF 
statements. 
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The file is searched to find the first PTF whose HDR statement matches this statement 
entered from the keyboard. This PTF is then automatically applied and a return is made 
to a normal utility mode input condition. The PTF statements applied from disk are not 
normally printed. If any error is detected, the card image containing the error is printed, 
followed by the error message. A return is then made to the system. 


Error Conditions 
This statement is rejected if any of the following errors occurs: 


1. The optional disk unit parameter is specified and no PTF file is on that disk. 

2. The optional disk is specified and a HDR matching the entered one does not exist 

in the PTF file. 

The checksum is incorrect. 

4. The first specified disk does not contain a system program file or help text file, 
depending on what is being patched. 

5. | Avalid HDR statement has already been accepted. 


Ww 


Examples of correct syntax (the use of commas is optional): 


HDR _ .BSO00 2244, Ri 
HDR, .BHO29 A63F, Fl R2 


PTF Statement 


Syntax 
PTF d prog-name ¢ level ¢ cksum 


The PTF statement identifies the component in the system or help text to which the 
patch data in the following DATA statements is to be applied. It must be the first state- 
ment following the HDR statement. The parameters of this command are: 


1. prog-name—This is the System/3 BASIC six-character program name prefixed 
with a period. This identifies the component to be patched. 


Note: The help text file consists of more than one program. 


2. level—This is a two-digit number specifying the release level of the system program 
file or help text file to which the PTF should be applied. The release level can be 
located in ##DRTY (first component in the system program file). 

3. cksum—The four-digit accumulative checksum for this statement and the preceding 
HDR statement. 


Error Conditions 
The statement is rejected if any of the following errors occurs: 


1. The release level of the system program file or help text file on the unit specified 
in the HDR statement is not the same as the release level specified in this PTF 
statement. 

The specified program name is not a valid System/3 BASIC component. 

The checksum is incorrect. 

A HDR statement has not been entered. 

Two PTF statements are entered without intervening DATA statements. 

The help text is specified and it is not found on the specified disk. 

The program name and the PTF identification are incompatible. (For programs 
in the system program file, BS must have been specified in the HDR statement. 
If the help text file is specified, .BH must have been entered.) 


SOV 


Examples of correct syntax (the use of commas is optional): 


PTF #KREAD, 00, 57DC 
PTF, #T3HEL, 01 A996 
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DATA Statement 


Syntax 


DATA d cksum d hex-addr 
d hex-byte [hex-byte] ... 


This statement specifies the patch data. Any number of DATA statements (subject to 
total patch size defined) may be entered. The end of the DATA statements for this PTF 
is delimited by another PTF statement, or by the END statement. The parameters of 
this command are: 


1. cksum—The four-digit cumulative checksum including this statement and all 
previous statements in the PTF. 

2. hex-addr—This is the absolute core starting location within the specified program 
for the data bytes on this statement. This address is not relative to the start of the 
program. It is the relative byte displacement plus the starting core address of the 
program to be patched. For example, a patch of the third byte of a program 
that starts at X‘OCO0’ would specify X‘0C02’ as the starting patch 
address, Thus, this address corresponds to the addresses shown on the assembler 
listings for the program. 

3. hex-byte—The hexadecimal bytes (each one represented by two hexadecimal 
digits) define the information to be placed in the component. The first data 
byte of the DATA statement replaces the contents of the byte located at the 
starting address specified for this statement. The second byte is placed at the 
starting address plus one, etc. 


This command saves the specified code change and its location in the system work 
area section of the disk containing the current system. There is no restriction on the 
length of an individual DATA statement other than the line width of the input device. 
However, for any single component PTF, the total number of DATA statements times 
10, plus the number of hexadecimal bytes of code changes, must be less than approxi- 
mately 36k. A file in the work file section of the work area will be destroyed by this 
function. The disk copy of the specified component is not updated until the END state- 
ment is entered. 


Error Conditions 
This statement is rejected if any of the following errors occurs: 


1, The specified cumulative checksum does not match the accumulated checksum. 
2. A HDR or PTF statement has not been previously accepted for this PTF. 
3. More data than that which can be contained in 36k is entered. 

Examples of correct syntax (the use of commas is optional): 


DATA 0158, 0coo, F1F2F3F4F5F6 
DATA SOBF OEFE C0870465 1092 


END Statement 


Syntax 
END d cksum 


This command is used to signify the end of a PTF. If the HDR, PTF, and DATA state- 
ments were accepted and the specified checksum matches the accumulated checksum 
for this statement and all preceding PTF statements, the copy of the specified com- 
ponent in the system program file or help text file is updated. The record of installed 
PTF’s on sector 23, track 1, cylinder 0, of the disk containing the patched component, 
is updated after the successful application of the PTF. If the number of PTF’s exceeds 
that which can be contained in one sector, the record of the oldest installed PTF is lost. 
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When a PTF is applied to a disk (volume), the system work area on that disk (volume) 
is unassigned. If the updated component is one of the system components that has a 
copy in the system work area, any existing work areas are not updated with the PTF. 

The ASSIGN-WORKAREA command updates the working copies of the components 
when the work area is recreated. The work areas on both R1 and F1 contain copies of 
system programs and both should be updated with the ASSIGN-WORKAREA utility 
command. 

When the PTF END statement is completed, PTF mode is.switched to system mode. 


Error Conditions 
This statement is rejected if any of the following errors occurs: 


1. HDRand PTF commands, and at least one DATA command, have not been 
previously accepted for this PTF. 
2. The accumulated checksum for the PTF does not match the specified checksum. 


Examples of correct syntax (the use of commas is optional): 


END = 2019 
END, 5548 
The following example might be used as a PTF to the command analyzer system pro- 
gram (#HECMAN): 
PTF 
HDR _ .BSO01 2A44 Fl 
PTF #ECMAN 00, 33E6 
DATA, 3DFS, OEEC, 6F 
END  EE4D 


Assuming R2 contains a PTF file, the following PTF for the help text component 
might be entered through the keyboard: 


PTF 
HDR .BHOOO 22BD Fl, R2 


1/0 PARAMETER LIST SAVE AREA 
Contained within the nucleus of the system is a pushdown stack that contains the last 
three I/O parameter lists that have been handled by the system. This area is near the 
upper end of the nucleus and starts at label SPLST1. On the sample listing shown in 
Figure 6-1, the label is NPLST1 and is at address X‘044E’. The area has three labels— 
NPLST1, NPLST2, and NPLST3. Each label refers to a seven-byte entry in the stack. 
NPLST1 is the last I/O parameter list to be handled by the system and NPLST2 is the 
next to the last, etc. 


Interpretation of |/O Parameter List Area 


All information about these parameter lists is contained in Figures 5-23 and 5-24 with 
one exception: the first byte of each seven-byte entry determines the device referenced 
by the parameter list: 

Hex 00, 01, 02, or 03 DPL for disk 

Hex D7 PPL for printer 

Hex C3 PPL for CRT 
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ee 


##1TRK NPAUSE - EXMSGS SAVE/RESTORE CORE INTERFACE 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


2139 * 
2140 : ROUTINE TO SAVE/RESTORE CORE AND EXEC EXECUTION MESS 


Pravaverat ravatatas 2858505 SIMSON EES SSESESCUCESSESSESCSENESTLESSESS ELIE SSCS 
QIRI seine REL ek ert ceenew eu serececesuresvenensvens®, ERE epeketaesueussaeeueneususyey, HHA 


2142 * 


04B6 2143 ORG $PAUSD SET LOCATION CO 
2144 USING SUNMSK, @BR 

2145 NPAUSE EQU * ENTRY TO SAVE C 

O4B6 34 08 0494 2146 ST C€10100+@OP1,@ARR SAVE RETURN ADD 

( 2147 NPAUS1 EQU) * ENTRY FOR EXECU 

O4BA 34 01 O4F6 2148 CS0010 ST CS0060+@OP1, @BR SAVE BASE REGIS 

O4BE C2 01 0489 2149 LA SUNMSK, @BR LOAD BASE REGIS 


Replace coding at statement 2148 with this branch: C0 87 05A4. This causes a branch 
to the patch at address 05A4. 


Starting at location 05A4, put in the following 14-byte patch: 


Address Data 

05a4 OC 14 05c6 0462 This instruction moves pushdown stack to save area. 
O5AA 34 01 04F6 This instruction replaces overlaid instruction at O4BA, 
O5SAE CO 87 O04BE This instruction is for branch back to statement 2149, 


Data fram pushdown stack for parameter lists is now saved in 21-byte area 
from address 05B9 through 05C6. 


The following information was required to obtain the second address (X'0462') that 
is in the MOVE instruction at address 05A4. 


Refer to the listing shown below; the address is the high-order byte of NPLST3. 


##1TRK NUCLES - PERMANENT STORAGE AND CONSTANT AREAS 


O44E 0454 1893 NPLST1 DS CLC@DPLNG+1) LAST 1/0 PARAM L 
0455 045B 1894 NPLST2 DS CLC@DPLNG+1) 2ND TO LAST PARM 
O45C 0462 1895 NPLST3 DS CLC@DPLNG+1) 3RD TO LAST PARM 


BR1368 


‘Figure 6-1. Procedure to Save I/O Parameter Lists 


Recovery of Parameter List Information 


It is important to note that one of two methods of retrieval must be used to display this 
information: 


1. Display the parameter list area of the nucleus with the CE console starting at 
about address X‘044E’. 

2. Modify the nucleus with a patch to save the list information prior to calling in 
the maintenance utilities. (The fetch of the maintenance utilities ordinarily updates 
the list and overlays the information to be displayed.) This patch is useful if several 
dumps of the parameter lists are required. 


Modification of Nucleus to Save Parameter Lists 

1. Find the core save routine (label NPAUSE on listing for ##1TRK at about address 
X‘04B6’). 

2. Overlay patch the four-byte instruction that saves the base register (34 O01 XRXR) 
with an unconditional branch (CO 87 XXXX, where XXXX is the address of a 
patch area). 
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3. Locate a patch area of 35 bytes; or locate two areas, one with at least 14 bytes 
and one with at least 21 bytes. (Try this around address X‘O5A4’ where an area 
of more than 35 bytes is available.) 

4, In the 14-byte area (or first part of the 35-byte area), enter the following patch: 
OC 14 YYYY ZZZZ 34 01 XRXR CO 87 RTRT, where 


YYYY = Address of the last byte of the patch area where the parameter 
lists will be saved. 


ZZZZ = Address of the last byte of the I/O parameter pushdown stack 
(around X‘0462’), 

XRXR = Address in last two bytes of instruction that was overlaid in step 2 
of this procedure. 

RTRT = Address of next instruction in NPAUSE. 


5. Refer to Figures 6-1 and 6-2 for detailed examples of this procedure. 


THIS PROCEDURE WILL PATCH THE NUCLEUS TO SAVE THE LAST THREE 1/0 PARAMETERS 


CD,DD,VM,CP,DP,0C,DW,H,R,T,Lissees cP THIS IS THE OVERLAY IN THE CORE SAVE ROUTINE 
ENTER START ADDRESS. ...-.000e O4BA 

ENTER PATCH DATA, USE SPACE FOR NO CHANGE 

CO8705A4 

CD,DD,VM,CP,DP,DC,DW,H,R,T,L....... cP THIS 1S THE PATCH TO SAVE THF _I/9 PARAMETERS 
ENTER START ADDRESS... ssa eee O5A4 


ENTER PATCH DATA, USE SPACE FOR NO CHANGE 
0€1405C60462340104F6C08704BE 


CD,DD,VM,CP,DP,DC,DW,H,R,T,Lisseeee R THE NUCLEUS IS PATCHED AND WE WILL RETURN TO BASIC 


READY 
EDIT LINE 
WORK FILE HAS BEEN CLEARED AND NAMED LINE 


READY 

CD,DD,VM,CP,DP,DC,0W,H,R,T,L..se.ee cD THE FOLLOWING IS A DUMP OF THE PARAMETER SAVE AREA AND THE PATCH 
ENTER START ADDRESS.......265 OSA0 

ENTER END ADDRESS... creer ee 0500 


BR=0C00 XR=1D0B PSR=0101 


ADDR +00 123 4567 89AB CDEF+10123 4567 89AB CDEF #INTERPRETATION® 
14-Byte Patch Area NPLST1 NPLST2: 
O5A0 0C000007 0C1405C6 04623401 O4FE6CO87 O4BEC3FF 0104012F 8ID7CH05 17840180 #,,...0. Fr..as Bianca ecays Possace : 
05¢0 C3C00517_ 842F8100 00000000 00000008 00000900 00000000 00000000 ONDDNDON KC iicccssecveecreneeereceenrncace - 
—S ss 


NPLST3/ 
CD,DD,VM,CP,DP,DC,DW,H,R,T,L.....0. 
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Figure 6-2, System Printer Output, Example | 


STAND-ALONE DUMP 


The possibility exists that the maintenance utilities cannot be loaded. An example would 
be if a problem (hardware or software) changed the coding within the nucleus, in an area 
that is required for saving core and loading the utilities, making the maintenance utilities 
unavailable. To provide information in such a situation, the following program can be 
keyed into the system. 

This stand-alone dump starts dumping at address 0000 and continues until stopped or 
until core is exceeded (Figure 6-3). 


Stand-Alone Dump Procedure 


1. Prior to entering the program, record (from the CE panel and/or operator panel) 
any hardware data that may aid in diagnosing the problem: 


IAR 
ARR 
Status 
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2. Enter the following program by using manual entry via the keyboard, starting at 
address 1FOO. Refer to JBM System/3 Model 6 Components Reference Manual, 
GA34-0001, “Altering Storage.” 


Hexadecimal F . 
Data in Hexadecimal Notation 
Address 


Note: X’'1F68’ is the last byte. 


‘;BR1370 


Alter [AR to address 1F00 and start CPU. 

Stop CPU when necessary information has been dumped. 

5. Write information on the dump to define the core locations (see sample dump 
in Figure 6-3). 


aera 


DO08704B6E7E7E7E 7E7E7E7E740C 3DE6D7E8D9CIC7CB8E340C9C2D 
F802FD4C00010476)3C800476D087417BIFFI1F7D0219F2010C5CO, 
1£5F001C35580218197BF0193C23009D/78021BF290043C24009 
19F281045E006237/5E0026265E00263BD0877ED087533C870474 
000003010B4C0407100000001000200F 5/0 0A00000FF0109740 
1€5C0078265E0078195C007918F3A100K08700065C012118/740g 
2520C087000358001B9265 800BC267002/2870032A380C03D5F2 
4027C01002FE780428C0100304792E27\CO9001FD780127F2)10 
219C03DC229C0001/26BA0101F3000198000B26F1A200E 100A89 
E43S5SADO01DADEF20 11 1ADOIDFEIF2810A6CO1IEES5S7CO11FF2871E 
011BE77D011FF28110678801BE010737C001FF287789F00EA35F 
5C041E325C011937/5F0062379F00EB35F20131C08701E09FO0E 
25F287123A0C0 3D51E00043435D0877ED0 875 3D08741C087/00 
00F1E200384003D2F 29003F1F200C087/100250394C0870025039 
0000000000000000)00F01844C087038910 389033002001005)070 
8400001A0000051EIFOF1FOF04023-8007/0000C40110020004 0000 
D3C6F140000100001000000000002000010000000000030001001 
0000000000000000100000707000000011084C050700000104011 
100488C087047500100 340804943C8704/76C0870DB80 3A200 31C3 
04895C01710B7402657C87607C0281F 218 70AC20104897C0181 


BR1371 
Figure 6-3. Stand-Alone Dump, Example 
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PATCHING A DISK RESIDENT SYSTEM PROGRAM 


Considerations: Two types of patches should be considered: 


e Overlay 


e Additional coding 


Overlay Patch: To make an overlay patch, locate the section of coding to be replaced, 
and change that specific area. 


Additional Coding: To patch with additional coding, several things must be considered: 


e How to exit from original coding? 

e Will the base register range be exceeded? 

e@ Where is space available for additional code? 

e How can this coding be restored if it is not effective? 


e How to return to original coding? 
Solutions to Considerations: The considerations can be resolved as follows: 


e To exit from the original code, overlay patch at the logical point in original coding 
with a branch to the additional code (example: CO 87 XXXX, where XXXX is 
address of the patch). 


Note: This may require the overlay of more than one instruction. 


e Ifthe patch that is branched to is beyond the range of the base register, use long 
instructions in the patch, to prevent the need for changing registers (when possible). 


The space for patching with additional coding can be found in four optional areas: 


1 Patch area of the module. 

2 Overlay a message constant. 

3. Overlay a section of the module not being used. 
4 Patch area of the nucleus. 


Note: You must consider that option 2 will cause incorrect messages and options 
3 and 4 will work for only a temporary situation. 


e To restore coding with a minimum of effort, the original coding should be placed on 
an unused area of disk (use DW option of maintenance utilities). 


e To return to original coding requires a branch as follows: CO 87 YYYY, where 
YYYY is the return address. 


Note: Be sure to include, as the last part of the patch, that portion of the program 
that was overlaid by the branch to this patch. 


Procedure to Patch a Disk Resident Program: Patch a disk resident program as follows: 


1. Determine the disk address of segment(s) of program to be patched. Locate the 
directory entry for the program in ##DRTY (first seven sectors of the system 
program file), This entry contains the starting disk address and number of sectors 
occupied by the program. The relative location of a patch can be determined by 
matching machine code between the program’s assembly listing|(microfiche) and 
a dump of the sectors the program occupies. 

2. Write sector(s) to be patched to some unused area of disk. This step should be 

taken to provide a simple method of restoring the program to normal. 

Modify program with disk patch facility. 

4... If the patch does not work and/or the program must be returned to normal, copy 
back the information saved in step 2 to restore the program. 


a 
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FINDING A LIBRARY FILE ON DISK 


Cylinder 0, Sector 2 


Sector Address 0008 


Displacement 
and Address 


Displacement 
and Address 


Program 
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Ae 


Dump the volume labet at disk 
address 0008. (Note: The appro- 
priate disk and drive bits must 

be added for files not on R1; 
refer to ‘‘Disk Address Specifi- 
cations for Utility Dump” in 
Section 7.) The cylinder address 
of the password directory is 
located in OOFD and OOFE. 


. Dump the password directory 


(5 sectors) using the disk address 
obtained in step 1. (Note: Disk 
and drive bits must be added for 
files not on R1; refer to “Disk 
Address Specifications for Utility 
Dump” in Section 7.) The first 
sector is the null directory. In 
the next 4 sectors, a 2-byte dis- 
placement follows each 8-byte 
name field. Add the appropriate 
displacement to the address of 
the password directory. Convert 
this address to a physical disk 
address by referring to ‘’Disk 
Address Specifications for Utility 
Dump" in Section 7 to find the 
user file directory. Example: 


Cylinder address of 2D00 
password directory 


Two-byte displacement 0C1C 
Added 391C 
Converted 3990 


. Dump the user file directory 


using the disk address calculated 
in step 2. The 8-byte name field 
is followed by a 2-byte displace- 
ment. Add this displacement to 
the disk address found in step 1 
and convert to a physical disk 
address, Dump the number of 
sectors specified in the file length 
bytes. The file length is located 
in the 2 bytes following the file 
disptacement (Figure 5-14). A 
keyword-generated file has a 

1- to 3-sector FIT, a 1-sector 
1/O record if it is a program file, 
and data blocks. 


Note: If the user file directory 

is larger than 2 sectors, a forward 
link displacement resides in the 
third and fourth bytes of the 
block header, If there are no 
additional blocks, this field will 
contain binary O's. 


. Program files have been character- 


packed and set up as ‘‘segments.”” 
Data items in data files are in 
internal format. Keyboard data 
files also are ''segmented.”” 
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HOW TO USE THE FE MAP 


The nucleus contains a six-byte area that identifies the last six program modules that 
have been loaded by the system. This area can be found by referring to the listing for 
##1TRK around address X‘0584’. The label for the area is NFEMAP and there is also 
a system equate of SFEMAP. Each byte in this area identifies a program module that 
has been loaded. The byte at the lowest address is the last module loaded. You must 
take into consideration that calling in the maintenance utilities makes three entries in 
ithe FE map. If you need to know more than the last three modules loaded, you 

must display this area using the CE console. 


identification of Programs in the FE Map 


Assume that the following hexadecimal data is in the FE map: X‘5A 04 2E 
01 03 02’. This indicates that the last module loaded was #ZUTMO and that it was pre- 
ceded by #DPRIN, #EXMSG, #INSTD, #LOADR, and #BCOMP. 

Figure 6-4 shows how program numbers can be found in the FE map for #INSTD, 
#BCOMP, #DPRIN, and #LOADR. To obtain this information, take a disk dump of the 
system program file directory (first seven sectors of the system program file), This pro- 
vides a list of all program modules and the hexadecimal number for that particular 
module. 


CD,DD,VM,CP,DP,DC,0W,H,R,T,L ...44.- 
ENTER RD DISK ADDR........00. oA00 
ENTER SECTOR COUNT.......0005 6 
SECTOR ADDR= 0A00 

RELATIVE SECTOR NUMBER=0000 


ADDR +00 123 45 67 C DIE IF +10 i 2 3 45 67 A XINTERPRETATION®#% 

0000 0000C6D6 E5D947F0 DO-ESE SAH B5CORZ11 “tet 29. HHDRTY. cee eens 
0020 7BC905E2 E3C4001C 06001801) +BC2C 306 b4D70080 060018 DATED 817 Ey INSTD XABCOMP>..... gt 
0040 7B8D3D6C1 C4D90100 06001 ITI. 7BC4D7D9 C9DSO1NC 070005TDNDO20312 R PR = 
0060 7BD2C7D6 E2D30180 " 4 C9E30188 a aT ee REDDIT... se aane it 


aD 

0080 7BD2C5D5 C1C201C4% OCOO0HO7/C08711BC 7BC4D9C5 
00A0 
o0oco 


D6E50214 BCONNADAIF201483C HKMOUN. «2... ee 
E3D90234 : we Tr es : 


2BD2 DADS £4D50204 
E2E602 - 


’ 7BD209D4 


Note: This is a disk dump of the system program file directory. 
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Figure 6-4. Identification of Program Numbers 
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ADDRESS STOP PROCEDURE FOR PROGRAM LOADING 
This procedure can be used to stop the system before or after execution of a specific 
program module. This method enables you to obtain a core or disk dump at a specific 
point, or allow a check of system indicators at a specific time. 


Stop Address Selection 
The following three stopping points can be used: 


Label of Address *Current eee 7 
in Nuélelis Condition at Time of Stop 


1. NBLOAD X‘O51E’ Last module name printed by trace has executed, 


2. NBLOG7 X’056E’ Last module name printed by trace has loaded but 


not executed, 


3. NLOADR X'0516’ Will occur when a module is called to load only. Name not 
yet printed by trace; e.g., this happens when |/O modules 
are called into the low end of core storage. 


*The core addresses used are subject to change and are shown here only as an instructional aid. 
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Method to Activate Address Stop 


1. Turn on module trace by using the “‘T” option of the maintenance utilities. 
2. Choose the address that you require and set it up with the address switches on 


the CE console. 
3. Turn on the address compare stop switch. Make sure the roller switch is set for 


SAR. Run the program until the proper module name prints. Make observations 
or take dumps that you require. 
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HALT 2345 


6-18 


This halt occurs during IPL if the volume on disk drive R1 is initialized (contains 
formatted tracks), but does not have a standard System/3 volume label on cylinder 0, 
head 0, sector 2. The following procedure is used to bypass halt 2345: 


1. 


ns 


Make sure the user wishes to destroy the data content of the volume mounted on 
R1. The volume label, or any area, can be displayed from R1 using the disk dump 
(DD) option of the maintenance utility aid program (#ZUTMO). This program can 
be invoked when the halt occurs. 

If the first 3 bytes of the volume label are not the characters VOL, the volume does 
not have a standard System/3 volume label. 

Invoke the disk patch (DP) option of the maintenance utility aid program. 

Store X‘ABCDEP’ as the first 3 bytes of sector 2 on cylinder 0, head 0. The IPL 
program accepts this hexadecimal value (R1 only) and does not issue halt 2345. 
Perform a system IPL after completing the patch. Volumes that are patched in this 
manner are assumed to require initialization. 
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Section 7. Object Program 


This section details a method of laying out the contents of an execution-time disk dump 
of virtual memory. (Note: Taking a complete dump of virtual memory is not a realistic 
approach to troubleshooting user-program execution problems.) This section also details 
a method for determining the contents of an execution-time core dump. Refer to Figure 
7-1 to convert virtual addresses to disk addresses. 


HOW TO TAKE A SEQUENTIAL DISK DUMP OF VIRTUAL MEMORY 


The disk area occupied by virtual memory is cylinders 7 and 8, and over half of cylinder 9 
in the system work area. As this area is a logical four-track file, it is necessary to indi- 
vidually dump the following six disk areas to get a sequential listing of virtual memory: 


Starting disk address—0700; sector count—48 (cylinder 7; R1). 
Starting disk address—O701; sector count—48 (cylinder 7; F1). 
Starting disk address—0800; sector count—48 (cylinder 8; R1). 
Starting disk address—0801 ; sector count—48 (cylinder 8; F1). 
Starting disk address—0900; sector count—48 (cylinder 9; R1). 
Starting disk address—0901; sector count—-16 (cylinder 9; F1). 


Total 256 pages (64k) 


BN PO Ne 
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Virtual Disk Virtual Disk Virtual Disk 
Memory Addr Memory Addr Memory Addr 


Figure 7-1. Conversion of Virtual Addresses to Disk Addresses 
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Virtual Disk 
Memory Addr 
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Disk Address Specifications for Utility Dump 


The following chart provides a means of converting disk address (cylinder, head, sector 
ID, and spindle ID) into.a two-byte address format that the programming system requires. 
For example, cylinder 5, head 0, sector 2 for R1 (spindle-drive) is disk address X‘0508’. 


Disk Address 


OLN 278 eee i2 Olr2 ee Peis 17 | 


Cylinder Number | 
deter oe Head Number 
was Sector, CHVE, aN Sector Number 


volume that are selected Drive !D (off = 1, on = 2) 


tor geen value Hiab can be Volume ID (off = removable, on = fixed) 
contained in byte 2, 


Decimal Decimal 
00 01 02 03 


- Oo 
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How to Lay Out Virtual Memory (Standard Precision) 


Documentation required to lay out an execution-time disk dump of virtual memory is: 
1. _Execution-time disk dump of virtual memory. 
Note: Modifications to pages in core may not be'reflected in the disk dump. 


2. Maintenance utility core dump (all of core). 

Maintenance utility dump of virtual memory (pseudo instructions). 

4. Listing of the user’s System/3 BASIC language program. (A copy of this can be 
obtained using the LIST system command.) 

5. Assembly listing of #FMSTD. 

6. Assembly listings of FTEQU! and #TEQU2 (system equates). 


uw 
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The first step in laying out virtual memory is to block out the disk dump into the 
major-areas illustrated in Figure 7-2. Lay out the following fixed areas first (these can be 
individually formatted by referring to the indicated figure or section in this manual): 


1. Disk address 0700 (1 sector; starts at virtual address 0000; contains file 
directory 1): refer to Figure 5-17. 

2. Disk address 0704 (1 sector; starts at virtual address 0100; contains file directory 2); 
refer to Figure 5-20. 

3, Disk address 0708 (82 sectors; starts at virtual address 0200; contains fixed execu- 
tion subroutines); refer to “Virtual Memory Resident Execution Subroutines— 
#FMSTD and #FMLNG” (Section 3). 

4, Disk address 07B1 (2 sectors; starts at virtual address 5400, contains general 
purpose buffers). 

5. Disk address 07B9 (starts at virtual address 5600, contains pseudo machine 
instructions); refer to “VM—Virtual Memory Dump Option” (Section 6). The 
last pseudo instruction will always be EOF. 

6. Disk address 0911 (starts at virtual address F4FF; contains constants); refer to 
“Floating-Foint Arithmetic” (Section 3) for arithmetic constants, and Figure 3-110 
for character constants. Constants are generated at descending virtual addresses 
as they are encountered in the user’s program. 

7. Disk address 0915 (X‘36’ bytes; starts at virtual address F500 to F535; contains 
internal constants and internal work area-&CWRK and &WRK); refer to 
“Floating-Point Arithmetic’ (Section 3) for internal constants. This area is 
generated by the loader (HLOADR); refer to “Loader—Second Phase of Compil- 
ation—#LOADR*“ (Section 3). 

8. Disk address 0915 (starts at virtual address F536; contains variables); refer to 
“Floating-Point Arithmetic” (Section 3) for arithmetic variables, and Figure 3-110. 
for character variables. Variables are allocated at ascending virtual addresses as 
they are encountered in the user’s program. 

9. Disk address 093D (starts at virtual address FFFF; contains array dope vectors 
and virtual addresses of user function definitions); refer to Figure 3-156 for 
arithmetic array dope vectors, and Figure 3-157 for character array dope vectors. 
This area is allocated at descending virtual addresses as array references, user 
function references, and user function definitions are encountered in the user’s 
program. The virtual address operands of the following pseudo instructions 
reference (Figure 7-3) this area: 


SAI 
SA2 
SB1 
SCl 
SF1 
SF2 
SDO 
SD] 
SD2 
FCI 
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0000 File Directory 1 (page 1)*** 


0100 File Directory 2 


Fixed Execution Subroutines (4FMSTD or #FMLNG) 


5400 General Purpose Buffer 1 


5500 ‘General Purpose Buffer 2 


5600 ———____—_>- 


Pseudo Machine Instructions 


Region 1 (arrays, buffers) 


Constants 


F536 ———»- 


Variables 


Region 2 (arrays, buffers) 


Array Dope Vectors and 
User Function VADRs -———— FFFF 


Notes: 


*The virtual addresses that define the limits of 
region 1 and region 2 are variable. 
**F500 and all virtual addresses (constants, internal 
constants, variables, etc.) developed from it are 
precision dependent. 


***Page 2 of file directory 1 is allocated 
in either region 1 or region 2. 


Figure 7-2. Virtual Memory Map 
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sci SF1 FCI SE2 

Character Arithmetic Virtual Address Arithmetic 
Array Dope Array Dope of User Function }Array Dope 
Vector (4 bytes) Vector (8 bytes) Definition (2 bytes)]/Vector (8 bytes) 


X'FFEA’ X'FFEE! X‘FFF6’ X'FFF8' 


Figure 7-3, Pseudo Instruction Reference to Virtual Memory, Example 


The next step in laying out virtual memory is to determine the virtual address limits of 
region 1 and region 2 (refer to Figure 7-2), Both regions start and end on page boundaries, 
The limits can be determined by inspecting virtual address operands in the generated 
pseudo instructions, 


1. The starting virtual address of region 1 is the next ascending page following the last 
page of pseudo instructions. (Example: If the last pseudo instruction is generated 
at virtual address 5B4E, region 1 starts at 5COO.) 

2. The ending virtual address of region 1 is the next descending page preceding the 
page containing the last generated constant. The virtual address of the last 
generated constant is determined by inspecting STF and STC pseudo instructions. 
The virtual addresses in the operands of constant stacking instructions descend 
from F500. All constants can be formatted by tracing this descending chain of 
virtual addresses in the generated pseudo instructions. (Example: If the virtual 
address of the last generated constant is F3F8, region 1 ends at F2FF.) 

3. The starting virtual address of region 2 is the next ascending page following the 
page containing the last allocated variable. The virtual address of the last allocated 
variable is determined by inspecting STA, STF, and STC pseudo instructions. The 
virtual addresses in the operands of variable stacking instructions ascend from 
F536. All variable elements can be formatted by tracing this ascending chain of 
virtual addresses in the generated pseudo instructions. (Example: If the virtual 
address of the last allocated variable is F620, region 2 starts at F700.) 

4. The ending virtual address of region 2 is the next descending page preceding the 
page containing the last allocated array dope vector or user function virtual 
address. These fields normally occupy only one page; therefore, region 2 normally 
ends at virtual address FEFF. 


Alternate Method to Lay Out Virtual Memory (Standard Precision): The preceding 
virtual addresses are resolved by the compiler and passed to the loader in a common 
parameter area (Figure 3-155). This area can be inspected in a core dump taken between 
the execution of these two programs (refer to “CD—Core Dump Option” in Section 6). 

The arrays can be formatted by inspecting the contents of the array dope vectors. 
Allocated buffers can be located by inspecting file directory 2 (page 01). 

The virtual address operands of all FCI pseudo instructions should point to a location in 
virtual memory containing the virtual address of the corresponding user function defi- 
nition in the generated pseudo instruction (virtual address of a BRA generated for a DEF 
statement). It is now possible to resolve that the virtual address operands of all generated 
pseudo instructions reference the correct data element or subroutine entry point. 
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How to Lay Out Virtual Memory (Long Precision) 


Use the preceding method of laying out virtual memory for standard precision, keeping 
the following considerations in mind: 


1. 
2. 


#FMLNG occupies the area starting at virtual address 0200 instead of #FMSTD. 
All arithmetic data elements are allocated nine bytes instead of five. This includes 
constants, variables, array elements, and internal constants. 

The virtual address that divides constants from variables is FOOO instead of F500. 
All virtual addresses affected by this location must be adjusted. Also, the size of 
the area containing internal constants is increased to accommodate elements of 
greater length. The area containing variables starts immediately after internal 
constants and internal work area (virtual address FO3F when running in long 
precision). (Page FO is located at disk address 0901 in virtual memory.) 


HOW TO LAY OUT AN EXECUTION-TIME CORE DUMP 


Documentation required to determine the contents of an execution-time core dump is: 


1. Maintenance utility core dump taken while the interpreter program is in execution, 
(A core dump taken while the interpreter is in an execution pause state does not 
contain the complete core-resident interpreter.) 

2. Maintenance utility dump of virtual memory (pseudo instructions). 

3. Listing of the user’s System/3 BASIC language program. (A copy of this can be 
obtained by using the LIST system command.) 

4. Assembly listings of #INSTD and #FMSTD, or listings of #INLNG and #FMLNG, 
depending upon the precision. 

5. Assembly listings of #TEQU1 and #TEQU2 (system equates). 

If the following conditions do not exist in the dump, it is not a valid execution-time 
core dump: 

1. X‘0600’ must contain #INSTD or #INLNG. 

2. _X‘0700’ must not contain any valid program name (example: #DPRIN). 

3. X‘OCOO’ must not contain any valid program name (example: #GUFUD). 

4 X‘OE00’ may contain the name of an interpreter execution overlay. The program 
name at this address, if present, must be #FISTD, #FILNG, or #SFFIN. 

5. | X‘OFOO’ may contain the name of an interpreter execution overlay. The program 


name at this address, if present, must be #SFLOA. 


The core dump can be divided into the major areas as illustrated in Figure 3-163 
(interpreter core map). The location and size of certain areas in the dump are dependent 
upon the core size of the system. Figure 74 lists the fixed core addresses to be used in 
laying out the core dump (all addresses are in hexadecimal). 
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7 bytes 
50 bytes 
240 bytes 
256 bytes 


10 pages 


18 pages 
25 pages 
34 pages 
41 pages 


Program name and ID number 
Arithmetic function work area 


Run-time stack (contains variable length entries) 


Core page table (nonzero entry indicates page in core) 


Start of core paging area (8k system only) 

End of core paging area (8k system only) 

Start of core paging area (12k or 16k system) 

End of core paging area (12k system with CRT) 
End.of core paging area (12k system without CRT) 
End of core paging area (16k system with CRT) 
End of core paging area (16k system without CRT) 
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Figure 7-4. Fixed Core Addresses in Execution-Time Core Dump 
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MACHINE INSTRUCTION REFERENCE TABLE 


Standard Mnemonics 


Zero and add zoned decimal 

Add zoned decimal AZ 

Subtract zoned decimal SZ 

Move hex character MVX 

Move characters MVC Two-address 
Compare logical characters CLC format* 
Add logica! characters ALC 

Subtract logical characters SLC 

Insert and test characters ITC 

Edit ED 

Move logical immediate MVI 

Compare logical immediate CLI 

Set bits on masked SBN 

Set bits off masked SBF 

Test bits on masked TBN 

Test bits off masked TBF 

Store register ST One-address 
Load register L format* 
Add to register A 

Branch.on condition BC 

Test [/O and branch TIO 

Sense I/O SNS 

Load I/O LIO 

Load address LA 

Advance program level APL 

Halt program level HPL Command 
Start 1/O slo format* 
Jump on condition Jc 
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Appendix A. System/3 Basic Assembler Language 


Extended Mnemonics 
Mnemonic Operation Code 


Move hex character (MVX): 
Move to zone from zone 

Move to numeric from zone 
Move to zone from numeric 
Move to numeric from numeric 


Branch on condition (BC): 
Branch 

Branch high 

Branch low 

Branch equal 

Branch not high 

Branch not low 

Branch not equal 

Branch overflow zoned 
Branch overflow logical 
Branch no overflow zoned 
Branch no overflow logical 
Branch true 

Branch false 

Branch plus 

Branch minus 

Branch zero 

Branch not plus 

Branch not minus 

Branch not zero 


Jump on condition (JC): 
Jump 

Jump high 

Jump low 

Jump equal 

Jump not high 

Jump not low 

Jump not equal 

Jump overflow zoned 
Jump overflow logical 
Jump no overflow zoned 
Jump no overflow logical 
Jump true 

Jump false 

Jump plus 

Jump minus 

Jump zero 

Jump not plus 

Jump not minus 

Jump not zero 
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MACHINE INSTRUCTION FORMATS 


(a) Two-Address Formats 


4 Bytes 
op Length Destination | Source 
Code Count Address Address | 
' Displacement | Displacement ' 
0 78 1516 23 24 31 
5 Bytes 
fe) Direct Source ‘ 
Code Destination Address 
Address Displacement 
0 78 15 16 31 32 39 
op Destination Direct 
Code Address Source 
Displacement Address 
QO 78 1516 23 24 39 
op Direct Direct 
Code Destination Source 
Address Address 
0 78 15 16 31 32 47 


(B) one-address Formats (c) Command Format 


3 Bytes 3 Bytes 


Control 


Address 


Displacement Code 


7!'8 15116 23 
! ie 
~ Device Address rs 
and Functional 
| Specifications 
| Skip Condition 
| 
| 


Destination Address 
Source Address 
Branch Address 


Immediate Data 
Bit Mask 


Register Address Halt Identifier 


| Data Selection 


f 


4 Bytes 


~ 
— 


+ 


eee ieee el 


| 
| 
| 
| 
| Branch or Skip Condition | 
| 
| 
| 


Direct 


Address 


0 78 15 16 31 
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Operation Code 


The first byte of each instruction, the operation code, specifies the addressing modes to 
be employed by the instruction in bits 0 through 3, and the operation to be performed 
in bits 4 through 7. 


Q Code 


The second byte of each instruction is the Q code. In two-address formats, the Q code 
is always a length count. In other formats, depending upon the operation specified, the 
Q code can be: 

Length count 

Immediate data 

Bit mask 

Register address 

Data selection 

Branch or skip condition 

Device address and functional specifications 


Control Code 


The third byte of an instruction in the command format contains additional data per- 
taining to the command to be executed. 


Storage Addresses 


For instructions in the one-address and two-address formats, the third byte of the instruc- 
tion and all bytes following are storage address information. 


ASSEMBLER INSTRUCTION REFERENCE TABLE 


Operation Entry Operand Entry 


Any symbol or blank One operand entry containing: duplication 
factor, type, length, constant. 


Blank Specified register (1 or 2). 


Any symbol or blank One operand entry containing: duplication 
factor, type, length. 


Blank Blank. 

Blank A relocatable expression. 

Any symbol An expression, 

Blank Two decimals in the form of b, e. 

Blank Blank, or two decimal vaules in the form L, R. 


Blank Blank, or an expression (A) optionally followed 
by two absolute expressions in the form A, b,c. 


Blank One or two entries from: DATA, NODATA; 
ON, OFF. 


Blank Blank, or a decimal value. 


Name A self-defining value, or blank. 


Name or blank A sequence of characters enclosed in apostrophes. 


Blank A relocatable expression (v) and an index register 
(r) in the form v, r. 
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Where more than one page reference is given, the major reference is first, 


$B$EQU—compiler equate module 3-154 
$B$EQU—compiler fixed equates 4-9 
$B@EQU—compiler system equates 4-10 


$BLOAD (NBLOAD) 3-16 
$CABLD (NABORT) 3-12 
$CAERK (NCAERK)-~interface to system printerIOCR 3-10 
$CAIPL (NABORT) 3-12 
$CARPL (NABORT) 3-12 
$SCIENT, $SUNMSK (NQUIRY) 3-12 
$CIMSK, usage in $UNMSK 3-12 
$DISKN (DKDISK) 3-4 
$DPLSV (#UPACK) 3-137 
SERPND, usage in NERLOG 3-9 
$SEXFTR (#DSPLY) 3-41 
$FCIND (#GUFUD) 3-22 
$FDIND (#GUFUD) 3-22 
$FUIND (#GUFUD) 3-22 
$HISTE, usage in NERLOG 3-9 
$1$EQU-— interpreter, fixed equate module 
$1$EQU-— interpreter fixed equates 4-10 
SI@LEQ—long precision execution equates 
$I@SEQ-—standard precision execution equates 
$INDR1 indicator as used in #KEDIT 3-55 
SINRPT, usage in NQUIRY 3-12 
SISEQU fixed address referencing 3-205 
$LOADR (NBLOAD) 3-16 
$PAUSD (NPAUSE) 3-14 
$PRDEV, usage in NSPRNT 3-10 
$RLOAD (NBLOAD) 3-16 
$RSTR (NPAUSE) 3-14 
$SPRNT (NSPRNT)-—interface to system printer[OCR 3-10 
$SPRNT—system printer calling sequence 3-41 
SUNMSK, $CIENT (NQUIRY) 3-12 
$V$EQU-—fixed addresses in virtual memory 4-10 
$WAITF, usage in NERLOG 3-9 
$$CDBS (#GRAPR) 3-40.1 

card input status (#GUFUD) 3-27 
$$ERSK~—stacked error entry 3-18 
$$PRES—enable key input (HGUFUD) 3-26 
$$PYCD-CRT branch in DEPRES 3-38 
*(one-star), general description 2-6 
**(two-star) library, general description 2-6 
#BCOMP, #BOVLY—compiler 3-153 
#BCOMP-—calling sequence and load 3-155 
#BCOMP-—core resident routines 3-153 
#BCOMP-entry point 3-155 
#BOVLY-—calling sequence and load 3-155 
#BOVLY—PMC generator (statement processor) overlays 
#DPRIN—conversational I/O routines 3-35 
#DREAD-card reader I/O routine 3-39 
#DSPLY—CRT I/O routine 3-41 
#ECMAN-—command analyzer 3-28 
#EFKEY—command key processor 3-30 
#ERRPG-—error message program 3-18 
#ERRPG, usage in NCAERK (error program interface) 
#EXMSG-— program interruption processor 3-20 
#FILNG-—long precision matrix inversion/determinant 
#FISTD-~—standard precision matrix inversion/determinant 
#FMLNG-long precision virtual memory resident execution 

subroutine 3-201 

#FMSTD-standard precision virtual memory resident 


execution subroutine 3-201 
usage in random number generator 


#GRAPR-procedure file line processor 
#GUFUD initial entry (GUFENT) 3-22 
#GUFUD-—work file update/crusher 3-21 


3-205 


4-11 
4-11 


3-154 


3-10 


3-222.1 
3-222.1 


3-222.2 
3-40.1 
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Index 


3-201 
3-201 


#INLNG-—long precision interpreter 
#INSTD-—standard precision interpreter 
#KALLO—keyword program 3-45 
#KCALL—CALL keyword program 3-46.1 
#KCNDI-CONDITION keyword program 3-49 
#KCTLO-LISTCAT keyword program 3-69 
#KDELE-—DELETE keyword program 3-50 

#K DISP—DISPLAY keyword program 3-53 
#KDNTE—ENTER keyword program 3-59 
#KDOVR-—DISPLAY keyword program 3-53 
#KEDIT—EDIT keyword program 3-55 
#KENAB—ENABLE/DISABLE keyword program 
#KEXTR—-EXTRACT keyword program 3-59 
#KGOSL-—GO keyword program 3-61 
#KHELP—HELP keyword program 3-62 
#KKEYS—KEYS keyword program 3-64 
#KLLAY-—card punch IOCR = 3-66 
#KLIST-—LIST keyword program 3-66 
#KLOGO—LOGON/OFF keyword program 
#KMERG—MERGE keyword program 3-73 
#KMOUN—MOUNT keyword program 3-75 
#KNAME—RENAME keyword program 3-85 
#KPASW-—PASSWORD keyword program 3-76 
#KPOOL—PULL/POOL keyword program 3-78 
#KPRTC—PROTECT keyword program 3-77 
#KREAD—READ keyword program 3-81 
#KRLAB-—first phase of RELABEL keyword program 
#KRMOV core map 3-83 

#KRMOV—REMOVE keyword program 3-83 
#KRNUM—RENUMBER keyword program 3-87 
#KROVL overlay in RENUMBER keyword program 3-88 
#KRSUM—RESUME keyword program 3-89 
#KRUNI-RUN/STEP/TRACE keyword program 3-91 
#KRVLA~—second phase of RELABEL keyword program 
#KSAVE—SAVE keyword program 3-92 
#KSETI-SET keyword program 3-94 
#KSOVR-SET keyword program 3-94 
#KSSPN—SUSPEND keyword program 3-95 
#KS YMB—SYMBOLS keyword program 3-97 
#KWIDT—WIDTH keyword program 3-99 
#KWRIT—WRITE keyword program 3-100 
#KYBSY indicator (CRDBSY) 3-39 

#LOADR~— loader, second phase of compilation 
#MIPPE—nucleus initialization program 3-2 
#MIPPE—nucleus initialization program flowchart 
#MLOAD-IPL bootstrap loader 3-2 
#SDSYN-data syntax checker 3-34 
#SFFIN—find disk data file 3-222.2 
#SFLOA~— logical IOCS for disk data files 
#SFSYN-—BASIC statement syntax checker 
#SPACK~— pack file library subroutine 3-123 
#SPOVL (#SPACK) 3-123 
#SPOVL overlay (#SPACK) 
#SPSYN-—procedure line checker 
#TEQU1—system equates 4-7 
#TEQU2—system equates 4-11 
#UALLO-—ASSIGN utility program 3-127 
#UATRC—ALTERNATE-TRACK utility program 
#UCDIS—COPY volume utility program 3-131 
#UCDIS usage in #UCPLI 3-130 
#UCNFI-CONFIGURE utility command 3-129 
#UCNFI-CONFIGURE utility program 3-129 
#UCPLI-COPY file utility overlay 3-130 
#UDELV (#UDISV) 3-143 
#UDELV—VTOC-DELETE utility program 


3-57 


3-71 


3-81 


3-81 


3-193 


3-3 


3-225 
3-32 


3-123 
3-34,1 


3-125 


3-141 


Index 


Licensed Material—Property of IBM 


X-1 


#UDISV usage in #UDELV 3-143 

#UDISV—VTOC-DISPLAY utility program 3-143 

#UEXLI-EXPAND utility program 3-133 

#UINIT—INITIALIZE disk utility program 3-134 

#UPACK-—PACK utility program 3-137 

#UPTFI-PTE utility program 3-138 

#VCRTI-DCALC CRT physical lOCS 3-276 

#VLOAD-first phase of DCALC 3-272 

#VLOAD flowchart 3-277 

#VODKA—DCALC core resident routines 3-269 

#VODKA flowchart 3-277 

#VODKA, modules 3-269 

#VVMRS- DCALC virtual memory resident subroutines 
3-270, 3-272 

#VXITI—DCALC terminator (second phase) 3-276 

#VXITI flowchart 3-277 

#ZDUMP branch table 3-149 

#ZDUMP-—VM dump overlay 3-149 

#ZLBMA-—library mapping, mainline entry 3-150 

#ZLVRL-—library mapping, option 3 overlay, part 2 3-150 

#ZLIMA-—library mapping, option 1 overlay 3-150 

#ZL2MA-~—library mapping, option 2 overlay 3-150 

#ZL3MA—library mapping, option 3 overlay, part 1 3-150 

#ZTRAC—maintenance program load trace 3-44 

#ZUTMO- maintenance utility aid program 6-1 

#ZUTMO-—maintenance utility monitor 3-145 

##CKTB-—command key table 5-30 

##CORE, usage in save/restore core (NPAUSE) 3-14 

##DRTY—system program file directory 5-31 

##ERMS—DCALC error message text 3-273 

##VUFA-—DCALC virtual memory resident subroutines 3-270 

#@#BAD bad line buffer (#KCHAN) 3-47 

@CANEQ—common core locations outside nucleus 4-8 

@CNFEQ-—system configuration record equates 4-9 

@CYOEQ-—cylinder zero equates 4-8 

@DIREQ-file library addresses and tables 4-9 

@ERMEQ~ general error message equates 4-9 

@F XDEQ-fixed addresses for system nucleus 4-8 

@FXDEQ, usage in NUCLES 3-9 

@HDWEQ-system hardware I/O equates 4-8 

@HLTEQ-—hualt indicator equates 4-9 

@LVLEQ~—system level equates 4-11 

@SEREQ-—general error message equates 4-9 

@SPFEQ~—system program area equates for relative disk 
addresses and sector counts 4-8 

@SYSEQ-—system and hardware equates 4-7 

@V@EQU-~desk calculator equates 4-10 

@VMDEQ-virtual memory directory equates (directory | 
and 2) 4-9 

@VTCEQ-volume table of contents (VTOC) equates 4-9 

@WKAEQ~—system work area equates for physical disk 
addresses and sector counts 4-8 

@XR (index register)—character core address 3-161 


abort current operation routine—NABORT, $CAIPL, 
$CARPL, $CABLD 3-12 

access next statement and set up processing (compiler) 3-179 

accessing PMC generators 3-153 

activate address stop, procedure 6-17 

activate external data file, (ADF), pseudo instruction 3-239 

active external data file-SFADFR 3-218 

add, (ADD), pseudo instruction 3-226 

add error, compiler, equated to BSPFAE 3-161, 3-162 

add record, compiler, set by default 3-161, 3-162 

ADD pseudo instruction execution, label trace 3-226 

ADD (X‘06’), add, pseudo instruction 3-230 

additional coding patch of disk resident system program 6-14 

address stop procedure for program loading 6-17 


X-2 


ADF(X‘58’), activate eternal data file, pseudo instruction 
3-240 
algebraic expression constants 3-162 
ALL parameter (#KCHAN) 3-47 
ALL parameter in #KDOVR 3-53 
-ALL parameter in #UDELV 3-141 
-ALL parameter in DELETE (#KDELE) 3-50 
allocate disk space (#UALLO) 3-127 
ALLOCATE, file directory | description 2-11 
ALLOCATE keyword program—#KALLO 3-45 
allocation 
alternate data tracks 2-4 
arrays in virtual memory—LALLOC 3-193 
copied/saved program file 2-8 
core paging 3-206 
current data file 2-7 
current program file 2-7 
data file buffers in virtual memory—LDFILE 3-194 
disk working storage for programs 2-6 
file directory 1 2-8 
file library (system library file) 2-6 
help text file 2-7 
I/O information sector 2-8 
paging module 3-209 
PTF file 2-7 
selected system programs 2-5 
system file 2-5 
system library file 2-6 
system program file 2-6 
system work area 2-5 
system work file 2-5 
temporary disk work area 2-6 
user programs and data 2-6 
virtual memory 2-6, 2-8 
volume information cylinder 2-4 
volume label 2-4 
VTOC 2-4, 2-5 
work file 2-5, 2-7 
alphabet reference table (BDSART) 3-165 
alternate 
data tracks 2-4 
method to lay out virtual memory (standard precision) 
track address, IOCS 3-5 
track assignment in #UINIT 3-134 
ALTERNATE-TRACK utility program—#UATRC 3-125 
appendix A, System/3 Basic Assembler Language A-1 
arithmetic 
array dope vector 3-193 
array symbol table-B$SNAT 3-194 
character output to sequential data file 3-218 
constant conversion 3-163 
constant, pack (#SDSYN) 3-34 
constant processed by BCFCON 3-162 
constant, test and translate (#SDSYN) 3-34 
expression conversion to pseudo instruction sequences 
expression PMC subroutine—BFSCAN 3-167 
operations (see also pseudo instructions) 3-227 
operations, general description 2-10 
packed-decimal format 3-268 
unpacked-decimal format 3-268 
array 
allocation parameters 3-193 
allocation in virtual memory 3-193 
arithmetic dope vector 3-194 
arithmetic for standard precision 3-193 
character 3-193 
element length 3-193 
row, validity check (FZXINP) 3-218 
assembler instruction reference table A-3 
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3-169 


assembly listing 

contents of #VODKA 3-269 

DCALC 3-269 

interpreter 3-201 

microfiche 4-1 
assign alternate tracks (#UINIT) 3-134 
ASSIGN usage in H}UATRC 3-125, 3-126 
ASSIGN utility program—#UALLO 3-127 
assignment list PMC subroutine—BLISTA 3-175 
automatic line number overflow 3-26 


B$ADSW-—address available switch 3-166 
B$BCKT—identifies virtual address bucket 3-165 
B$BCKT label usage in BDSYMB 3-164 
B$BCKT—operand address bucket 3-168 
B$CRSW-character reference switch 3-166 
B$FRSW—function reference switch 3-166 
B$FSC1—function scan identifier (first character) 3-165 
B$FSC2—function scan identifier (second character) 3-165 
B$FSSW-—function scan switch 3-165 
B$FSVA—function scan virtual address 3-165 
B$GBSW—bypass blanks switch 3-160 
B$GPTR—address of selected character 3-161 
BSHRSW-matrix reference switch 3-166 
B$IFSW-intrinsic function switch 3-166 
BSKWSW-expression keyword switch 3-166 
BSLINE-line number 3-161 
B$MRSW-—matrix reference switch 3-165 
B$NUMC-— character skip count 3-160 
B$PFNC parameter usage in compiler 3-161 
B$SCAT-character array symbol table 3-195 
B$SFAB—user function addresses and array dope vectors 3-165 
B$SNAT-—arithmetic array symbol table 3-194 
BSTYPE-statement type code 3-161 
backspace (DPRINT) 3-35 
backspace and index (DPRINT) 3-35 
backspace key (DEPRES) 3-37 
BAGETC output parameters 3-161 
BAGETC~statement input subroutine 3-160 
BASIC 

mode of operation 1-1 

program file structure format 5-18 

programs, general description 1-1 

statement, general description 1-1 

statement syntax (see syntax, PMC) 

statement syntax checker-#SFSYN 3-32 
BBPUTC-virtual memory output routine 3-161, 3-168 
BCFCON-—constant generator subroutine 3-162 
BDSYMB-symbol translator subroutine 3-164, 3-176 
BECSCN—character expression PMC subroutine 3-166 
BFSCAN~—arithmetic expression PMC subroutine 3-167 
BFSCEN—current entry 3-168 
BFSSTK—compile-time stack 3-168 
BFSTBL-scan routine branch table 3-168 
BGINIT functions 3-155 
BGINIT-—overlay during compilation 3-155 
BHDDSA- sector byte label 3-158 
BHDIST-—compiler distributor 3-159 
BHDPAT-—processor address table 3-158 
BLISTA—assignment list PMC subroutine 3-175 
BMATXR-—matrix reference PMC subroutine 3-176 
BNX (X‘4A’), branch and suppress execution, pseudo 

instruction 3-246 

BRA (X‘46’), branch unconditionally, pseudo instruction 3-245 
branch 

address buffer (in core) 3-160 

address entry 3-160 

address resolution routine 3-166 

address table 3-160 
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branch (continued) 

address table (on disk) 3-160 

address table, general description 3-158 

address table sorting 3-197 

on condition, (BRC), pseudo instruction 3-245 

and delete function entry, (BRD), pseudo instruction 3-245 

instructions, PMC sequence 3-161 

-to-next statement 3-158 

pseudo instruction addresses 3-176 

to stacked address, (BRS), pseudo instruction 3-246 

and statement address table 3-197 

and suppress execution, (BNX), pseudo instruction 3-246 

table subroutine—BRATAB 3-176 

unconditionally, (BRA), pseudo instruction 3-245 
BRATAB-branch table subroutine 3-176 
BRC (X‘44’), branch on condition, pseudo instruction 3-245 
BRD (X‘48’), branch and delete function entry, pseudo 

instruction 3-245 
BRS (X‘4C’), branch to stacked address, pseudo instruction 
3-246 

BSSVRB—variable elements (arithmetic and character) 3-165 
BTRMNT-—compiler terminator overlay 3-191 
BVDL4T—disk four-track logical JOCS interface 3-177 
bypass blanks switch—-B$GBSW 3-160 
BZCOMN-—compiler common module 3-154 


CALL keyword program—#KCALL  3-46.1 
card 
or disk file close or reset (SFRSET) 3-218 
NUM input (#GUFUD) 3-26 
punch IOCR—DCDOUT 3-105 
punch physical IOCS—DFCOUT 3-216 
reader I/O routine-#DREAD 3-39 
reader physical IOCS-DFRDIN 3-216 
reader/punch physical 1OCS—DFRDIN, DFCOUT flow- 
chart 3-216 
caution procedure, maintenance utility aid program 6-1 
CB1, CB2, CB3, CB4 (HGUFUD) 3-21, 3-26 
CD-—core dump (#ZUTMO) 3-145 
CD—core dump option, operating procedure 6-1 
central work area, paging 3-210 
CHANGE keyword program—#KCHAN 3-47. 
CHANGE option usage in #UINIT 3-135 
character 
array dope vector 3-195 
array symbol table—B$SCAT 3-195 
constant processed by BCFCON 3-162 
constant, test and translate (#SDSYN) 3-34 
expression PMC subroutine—BECSCN 3-166 
field format 3-163 
segment 3-163 
skip count-B$NUMC 3-160 
string constant processed by BCFCON 3-163 
string delimiter 3-163 
characteristic, floating-point arithmetic 3-266 
check component field (HUCNFI) 3-129 
check system status (#GUFUD) 3-26 
CIT (core index table)—#GUFUD 3-22 
clear CRT screen—DSPCMD 3-4] 
close, compiler, equated to B$PFCL 3-161, 3-162 
close external data file, (CLS), pseudo instruction 3-241 
close or reset external data files—-SFRSET 3-218 
CLOSE, PMC syntax 3-181 
CLS (X‘S5E’), close external data file, pseudo instruction 3-241 
CMC (X‘42’), compare character elements, pseudo 
instruction 3-244 
CMF (X*40’), compare floating point values, pseudo 
instruction 3-244 


codes 


core-resident modules 3-205 
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codes (continued) 
interpreter print and carrier positioning 3-219 
virtual memory modules 3-205 
comma delimiters (FZXINP) 3-218 
command 
analyzer-#ECMAN 3-28 
key functions, IBM-assigned 5-30 
key processor—#EFKEY 3-30 
key table-(##CKTB) 5-30 
key 01 3-269 
keys, other than 1 through 11 (DEPRES) 3-37 
keys 1 through 11 (DEPRES) 3-37 


common 
core locations outside nucleus-@CANEQ 4-8 
parameter area, compiler/loader 3-192 
subroutines 3-101 
work areas, INTERP 3-208 


compare character elements, (CME), pseudo instruction 3-244 


compare floating point values, (CMF), pseudo 
instruction 3-244 

compile-time 
indicators 3-155 
stack—BFSSTK 3-168 
stack entries 3-169 

compiler 
#BCOMP flowchart 3-179 
accessing PMC generators 3-155 

- adderror 3-162 
add record 3-162 
arithmetic constant 3-162 
arithmetic constant conversion 3-163 
arithmetic expression PMC subroutine—BFSCAN 3-167 
assembly listings 3-153 
assignment list PMC subroutine—-BLISTA 3-175 
branch address table 3-160 
branch table subroutine—BRATAB 3-176 
character constant 3-163 
character expression PMC subroutine—BECSCN 3-166 
character string constant 3-163 
close 3-162 
common module-—BZCOMN 3-154 
constant generator subroutine—-BCFCON 3-162 
constants passed via label BSCTYP 3-162 
conventions used, core-resident modules 3-154 
conventions used, disk-resident modules 3-154 
conversions of subexpressions to pseudo instruction 
sequences 3-173 
converting arithmetic expressions to pseudo instruction 
sequences 3-169 

core-resident module referencing 3-154 
core resident routines 3-153, 3-159 
cycle 3-153 
detailed program description 3-153 
disk four-track logical IOCS interface-BVOL4T 3-177 
disk-resident module referencing 3-154 
distributor—BHDIST 3-159 
entries in compile-time stack 3-169 
equate module—$B$EQU 3-154 
filename table 3-157 
filename table, general description 3-155 
fixed equates—$B$EQU 4-9 
floating point data length 3-155 
initialization 3-155 
initiator-BGINIT 3-155 
input parameters to BAGETC 3-160 
input text pointer 3-160 
intrinsic functions 3-165 
labeling conventions 3-154 
loader common parameter area 3-192 
loader programs, general description 2-1 
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compiler (continued) 
loader, second phase of compilation—#LOADR = 3-193 
long precision subroutines 3-155 
matrix reference PMC subroutine-BMATXR 3-176 
organization of assembly listings 3-153 
organization of PMC generators on disk 3-158 
output parameters from BAGETC 3-161 
overlap, abort 3-162 
PMC generator (statement processor) overlays-#BOVLY 
3-154 ; 
PMC (pseudo machine code) generator 3-155 
PMC sequences showing branch instructions 3-161 
PMC statement processors, general specifications 3-177 
priority of pseudo instructions 3-168 
processor address table 3-158 . 
program reference to core-resident and disk-resident 
modules 3-155 
pseudo instruction sequences (see syntax, PMC) 
resolving virtual-memory addresses 3-157 
RUN program name core map (8K system), example 3-156 
stack-arithmetic-expression-value 3-167 
stack-basic-element sequences 3-178 
stack-variable-address generation 3-175 
statement address table 3-159 
statement input subroutine—BAGETC 3-160 
symbol processing in BDSYMB_ 3-164 
symbol tables 3-165 
symbol translator subroutine-BDSYMB 3-164 
system equates—$B@EQU 4-10. 
tables maintained for resolving VM addresses 3-157 
termination 3-191 
terminator overlay—BTRMNT 3-191 
unresolved operands 3-157 
virtual memory output subroutine—BBPUTC 3-161 
virtual-memory referencing 3-155 
write page 3-162 
compute stacked address, (CSA), pseudo instruction 3-260 
CONDITION keyword program—#KCNDI 3-49 
configuration (IPL) 3-3 
configuration record format 5-7 
CONFIGURE utility command—#UCNFI 3-129 
CONFIGURE utility program—#UCNFI 3-129 
console interruption (HEXMSG) 3-20 
constant 
arithmetic or character 3-162 
generated into 19-byte work area 3-162 
generator subroutine—BCFCON 3-162 
output buffer 3-162 
contents of virtual memory (DCALC) 3-270 
contents of virtual memory (interpreter) 3-202 
control code, machine instruction A-3 
control programs 
components 3-1 
functions 2-1 
system initialization (IPL) 3-1 
conventions 
core-resident module referencing 3-205 
interpreter labeling 3-205 
source module labeling 4-7 
virtual memory module referencing 3-205 
conversational I/O routines—#DPRIN 3-35 
conversion 
arithmetic constant to unpacked floating point and then to 
packed floating point 3-163 
arithmetic expressions to pseudo instruction sequences 
3-169 
disk address into a two-byte format 7-3 
specifications, interpreter 3-220 
subexpressions to pseudo instruction sequences 3-173 
virtual addresses to disk addresses 7-2 
copied program file, allocation 2-8 


Licensed Material—Property of IBM 


copy disk pairs 3-94 
COPY-DISK, parameters not copied in volume label 3-131 
COPY-DISK utility command (#UCDIS) 3-131 
COPY file utility overlay—#UCPLI 3-130 
COPY-HELPTEXT utility command (#UCPLI) 3-130 
COPY-LIBRARY utility command (#UCPLI) 3-182 
COPY-SYSTEM utility command (#UCPLD 3-130 
COPY volume utility program—#UCDIS 3-131 
core 
address zero branch (#ZUTMO) 3-145 
allocation, expanded 3-206 
configuration, relative paging area 2-8 
dump, execution time 7-1 
dump, how to lay out at execution-time 7-7 
dump option (CD), operating procedure 6-1 
dump ofa specific program module 6-17 
index table (CIT)—#GUFUD 3-22 
map 
‘#KRMOV _ 3-83 
DCALC (with CRT) 3-272 
DCALC termination 3-276 
interpreter (8K system) 3-207 
maintenance utility, example 3-146 
RUN program name, example (8K system) 3-156 
save/restore core (NPAUSE) 3-14 
system loader (NBLOAD) 3-16 
system nucleus 3-4 
work file update/crusher 3-21 
page location, determine (#SFLOA) 3-225 
paging area 
general description 2-8 
specifications 3-206 
paging, DCALC mode 3-272 
patch option (CP), operating procedure 6-3 
core-resident 
interpreter instruction referencing 3-205 
module referencing conventions 3-205 
PMC statement processors 3-177 
routines—#BCOMP 3-153 
routines, compiler 3-159 
routines of DCALC-#VODKA 3-269 
CP—core patch (#ZUTMO) 3-145 
CP—core patch option, operating procedure 6-3 
CRDBSY (#DREAD) 3-39 
create 
library directories (#UALLO) 3-128 
VTOC library file (#UALLO) 3-128 
VTOC work area file 3-128 
cross-reference label list 4-7 
CRT 
calling routine (NSPRNT) 3-10 
I/O routine—#DSPLY 3-41 
line segment table (CLST) 3-67 
output buffer (DCALC) 3-276 
physical IOCS (DCALC)—#VCRTI 3-276 
crush work file 3-27 
CSA (X‘3E’), compute stacked address, pseudo instruction 
3-260 
current 
data file, allocation 2-7 
entry—BFSCEN used in BFSCAN 3-168 
program file, allocation 2-7 
segment, terminating character 3-160 
cursor control-#DSPLY 3-42 
cylinder 
addressing (DL2ICS) 3-101 
addressing (DL4ICS) 3-101 
zero equates-@CYOEQ 4-8 
C2DECS usage in #UDISV 3-144 
C4BIN2 (HUATRC) 3-126 


data 
area formats, section 5 5-1 ’ 
block out of order in #GUFUD 3-27 
block packing routine—GUFPAK 3-27 
block transfer (4SFLOA) 3-225 
elements, convert and stack sequentially occurring 3-218 
elements, output on system printer (FZUPRT) 3-220 
file 
attributes 3-45 
buffers in virtual memory 3-194 
data portion, record or line 2-8 
lines, description 1-1 
keys (DEPRES) 3-37 
list constants 3-162 
portion, work file 2-8 
register parity error (DEPRES) 3-38 
syntax checker-#SDSYN 3-34 
tracks, alternate assignment 3-125 
DATA 
PMC syntax 3-181 
RECOVERED message (#UATRC) 3-126 
statement, PTF command 6-6 
usage in PTF utility program 3-138 
date processing (IPL) 3-3 
DC-—disk compare in #ZUTMO (3-145 
DC-—disk compare option, operating procedure 6-3 
DCA (X‘6A’), define constant address, pseudo instruction 3-262 
DCALC (desk calculator) 
core and VM map (with CRT) 3-272 
cycle 3-269 
equate-@V@EQU 4-10 
error messages-VERROR = 3-273 
flowchart 3-277 
initialization—#VLOAD and VINITI 3-272 
mode of operation, description 1-2 
program, detailed description 3-269 
program, general description 2-4 
termination core map 3-276 . 
termination—VSAWRT, #VXITI 3-276 
DCDOUT-~—card punch IOCR 3-105 
DCF (disk control field) format 3-8, 5-29 
DD-disk dump in #ZUTMO maintenance utility monitor 3-145 
DD-—disk dump option, operating procedure 6-2 
DDL (X‘6C’), define data linkage, pseudo instruction 3-264 
DEEXIT—enable keyboard and exit (DEPRES) 3-38 
DEF, PMC syntax 3-181 
default values, array dope vector 3-193 
defective data track 3-125 
defective track addresses, IOCS 3-5 
define constant address, (DCA), pseudo instruction 3-263 
define data linkage, (DDL), pseudo instruction 3-264 
define work area, (DWA), pseudo instruction 3-265 
delete and insert file to be copied (4UCPLI) 3-130 
delete list passed (HGUFUD) 3-26 
delete parameter list format 5-29 
DELETE keyword program—#KDELE 3-50 
DELETE parameter in H#UDELV 3-142 
deletion of a range of lines{GUFUPD) 3-23 
delimiter, character string 3-163 
delimiter (valid) sequence scan (HSDSYN) 3-34 
DEPRES—keyboard IOCR 3-37 
desk calculator (DCALC) 
#VLOAD, #VODKA, #VXITI flowchart 3-277 
detailed description 3-269 
equates-@V@EQU 4-10 
general description 2-4 
mode of operation, description 1-2 
destination field, element unstacking 3-210 
determine disk drive specified (#UDISV) 3-144 
DETEST-—test command key (DEPRES) 3-38 


Index X-5 


Licensed Material—Property of IBM 


Page of LY34-0001-1 
Revised January 1972 
By TNL LN34-0075 


device-type code (DLPTYP) 3-103 
DFCOUT-—card punch physical IOCS 3-123 
DFKEYN~-keyboard physical lIOCS 3-214 
DFPRNT-system printer physical IOCS 3-214 
DFRDIN—card reader physical OCS 3-215 
diagnostic aids, section 6 
address stop procedure for program loading 6-17 
finding a library file on disk 6-15 
how touse maintenance map 6-16 
I/O parameter list save area 6-10 
maintenance utility aid program 6-1 
patching a disk resident system program 6-14 
PTF command 6-6 
stand-alone dump 6-12 
DIM, PMC syntax 3-182 
directory 
display (LISTCAT) 3-69 
filename, block 5-17 
library file format 5-15 
list of system components 4-1 
null 5-15 
password 5-16 
source module labeling conventions 4-7 
system equates 4-7 
1 format, file 5-21 
2 format, file 5-23 
DISABLE keyword program—#KENAB — 3-57 
disabled BASIC statements and lines 3-66 
disk 
address conversion into two-byte address 7-3 
address specifications for utility dump 7-3 
addresses of virtual memory 7-1 
block boundaries, records 2-11 
block (sectors), work file 2-8 
block, segment 2-11 
and card file allocation for arrays 3-194 
or card file close or reset (SFRSET) 3-218 
compare option (DC), operating procedure 6-3 
control field (DCF) format 3-8, 5-28 
data file, find (#SI'TFIN) 3-223 
data files Logical IOCS—#SFLOA = 3-225 
dump, execution time 7-1 
dump option (DD), operating procedure 6-2 
dump sample of system program file directory 6-16 
dump of a specific program module 6-17 
four-track logical [OCS interface-BVDL4T 3-177 
initialization (#UINIT) 3-135 
label print, VTOC-DISPLAY (#UDISV) 3-144 
logical IOCS—DL2ICS 3-101 
organization, general description 2-4 
parameter bit format 5-28 
patch (#4ZUTMO) 3-147 
patch option (DP), operating procedure 6-3 
resident PMC generators allocation 3-156 
resident system program, patching 6-14 
statistical data recording format 5-9 
surface analysis 3-135 
system management programs 3-59, 5-6 
volume format 5-6, 2-4 
working storage for programs, allocation 2-6 
write option (DW), operating procedure 6-4 
DISK files, build a user directory entry for 3-45 
DISK parameter in COPY command 3-131 
displacement into track usage mask 3-119 
display data (information) 3-143 
display directory (LISTCAT) 3-69 
display error messages in DCALC (VERROR) 3-273 
display parameter in VTOC-DELETE (#UDELV) 3-142 
display VTOC label information 3-143 
DISPLAY keyword program—#KDISP, #KDOVR 3-53 
DIV (X‘0C’), divide, pseudo instruction 3-231 
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divide, (DIV), pseudo instruction 3-231 
DKDISK, $DISKN-resident disk physical IOCS 
error recovery procedure (ERP) section 3-6 
flowchart 3-8 
program description 3-4 
DLFPRT-line printer physical [OCR 3-214 
DLPCRT-label for output on CRT 3-103 
DLPMPR-—label for output on matrix printer (MP) 3-103 
DLPRNT-line printer interface 3-103 
DLPSPT-label for output on system printer 3-103 
DLPTYP usage in DLPRNT 3-103 
DL2ICS—disk logical IOCS 3-101 
DL2RAD usage in DL2ICS_ 3-101 
DL4ICS—system work file OCS 3-101 
double matrix function call, (MF2), pseudo instruction 3-237 
DP—disk patch in #ZUTMO (3-145 
DP—disk patch option, operating procedure 6-3 
DPL (disk parameter list) format 5-28 
DPL test (#UPACK) 3-137 
DPRINT~—matrix printerIOCR 3-35 
DPRINT, usage in NSPRNT 3-10 
DREADN (#DREAD) — 3-39 
DSDOWN-error routine for CRT 3-42 
DSPCMD (#DSPLY) 3-43 
DSPCMD-—clear CRT screen 3-41 
DSPLYN (#DSPLY) 3-41 
DSPLYN-—print on CRT (#DSPLY) 3-41 
DSPLYN, usage in NSPRNT 3-10 
DSPYMP-—print on both CRT and matrix printer 3-41, 3-42 
dump procedures, finding a library file on disk 6-15 
dump, stand-alone 6-12 
DVPRSC—DCALC keyboard physical IOCS 3-274 
DVPRSC—DCALC keyboard physical IOCS flowchart 3-275 
DW-—disk write, copy sector in #ZUTMO = 3-145 
DW —disk write option, operating procedure 6-4 
DWA (X‘6A’), define work area, pseudo instruction 3-265 


ECMANL (#ECMAN) | 3-28 
EDIT keyword program—#KEDIT 3-55 
element 
length in arrays 3-193 
stacking subroutine-ISTACK 3-210 
unstacking subroutine-IUSTAK 3-210 
enable 
keyboard data entry (FZXINP) 3-218 
keyboard (DCALC) 3-276 
ENABLE keyword program-#KENAB 3-57 
end of 
file record format 5-22 
forms, process (DPRINT) 3-36 
line (#SDSYN) 3-34 
page, (EOP), pseudo instruction 3-263 
program, (EOF), pseudo instruction 3-266 
statement code (#4#GUFUD) 3-22 
statement (EOS) detected (HECMAN) 3-28 
END , 
PMC syntax 3-182 
statement, compiler terminator 3-191 
statement, PTF command 6-9 
enter-minus key (DEPRES) 3-37 
enter-plus key (DEPRES) 3-37 
ENTER+ function, label trace of execution 3-273 
ENTER keyword program—#KDNTE 3-59 
entries 
branch address table 3-197 
compile-time stack 3-169 
FZZVMP 3-222 
INTERP 3-206 
I/O record 3-45 
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entries (continued) 
IPGMDL = 3-209 
maintenance map 6-16 
EOF (end of file record) format 5-22 
EOF (X‘70’), end of program, pseudo instruction 3-265 
EOP (end of page) processing 3-206 
EOP (X‘68’), end of page, pseudo instruction 3-262 
EOS detected (HECMAN) 3-28 
EQU, modules composed of equates 4-7 
erase key (DEPRES) 3-37 
ERP (see error recovery procedure) 
error 
conditions 
allocation of data file buffers 3-194 
data types in element unstacking 3-210 
DATA statement rejection 6-9 
END statement rejection 6-9 
HDR statement rejection 6-7 
PTF command rejection 6-6 
PTF statement rejection 6-7 
RESUME 3-89 
SUSPEND | 3-95 
terminate compilation 3-191 
exit in #UPTFI 3-139 
flowchart, system I/O and message interface 3-11 
history log entry ($HISTE) 3-9 
history log format 5-8 
logging work area 3-9 
messages 
DCALC (VERROR) 3-273 
equates, general-@VOLEQ 4-9 
program—#ERRPG 3-18 


procedures 
CRDBSY 3-39 
DEPRES 3-38 


program interface-NCAERK, $CAERK 3-10 
recovery procedure 
DCALC CRT 3-276 
DCDOUT 3-105 
DKDISK 3-6 
598 (HUATRC) 3-126 
execution 
overlay programs, interpreter 3-223 
subroutines (miscellaneous) 3-222 
execution-time 
core dump 
fixed core addresses 7-8 
how tolay out 7-7 
procedure 7-1 
disk dump of virtual memory 7-1 
file checker (SFADFR) 3-218 
EXMSGS (#EXMSG) 3-20 
EXPAND-LIBRARY utility command (#UEXLI) 3-133 
EXPAND utility program—#UEXLI 3-133 
expanded core utilization 3-206 


exponent conversion (internal format to decimal), table 3-267 


exponent (power), floating-point arithmetic 3-266 
exponentiate (power), (PWR), arithmetic operation, pseudo 
instruction 3-232 
extend to 103 cylinders 3-135 
extended mnemonic codes A-1 
external data file 
activation (SFADFR) 3-218 
close or reset (SFRSET) 3-218 
input on element from (SFGETR) 3-218 
output on element (SFPUTR) 3-219 
EXTRACT keyword program—#KEXTR 3-59 


FCI (X‘16’), function call-indirect, pseudo instruction 3-235 
field length 


file 


element stacking 3-210 
element unstacking 3-210 


buffer allocation routine 3-199 
copy (#UCPLI) 3-130 
directory 1, allocation 2-8 ’ 
directory 1 format 5-21 
directory 1 (I/O information record), general description 
2-11 
directory 2 format 5-23 
index table (FIT) 
description 2-7 
format 5-20 
library 
addresses and tables-—@DIREQ 4-9 
reorganization (#SPACK) 3-123 
(system library file), allocation 2-6 
protection, track usage mask 2-5 


filename directory 


block format 5-17 

entry subroutine—STUFID 3-117 
general description 2-6 

search subroutine (SRCHFN) 3-115 


filename, user file 2-6 
find 


disk data file-#SFFIN 3-222.2 

disk data file—#SFFIN flowchart 3-224 
specified file subroutine-SFINDF 3-1il 
volume-ID subroutine-SVOLID 3-113 


finding a library file on disk 6-15 
first 


entry in branch address table 3-196 
image segment (code X‘04’) 3-220 


FIRST parameter (HKCHAN) 3-47 
FIT (file index table) 


format 5-20 

general description 2-7 

usage in GUFSCH 3-24 

usage in GUFPAK 3-24, 3-26 

usage in GUFUPD (work file update) 3-22 


fixed 


addresses for system nucleus-@FXDEQ 4-8 
addresses in virtual memory—$V$EQU 4-10 
core addresses in execution-time coredump 7-8 
equate module ($I$EQU) referencing 3-205 


floating-point 


arithmetic 3-266 
numbers, example 3-267 


flowcharts 
abort current operation routine-NABORT, $CAIPL, $CARPL, 


$CABLO 3-13 
ALLOCATE keyword program—#KALLO 3-46 
ALTERNATE-TRACK utility program—UATRC 3-126 
ASSIGN utility program—#UALLO 3-128 
BASIC statement syntax checker—#SFSYN 3-33 
card punch IOCR—DCDOUT 3-106 
card punch physical IOCS (DFCOUT) 3-216 
card reader IOCR—#DREAD 3-40 
card reader physical IOCS (DFRDIN) 3-216 
CHANGE keyword program—#KCHAN 3-48 
command key processor-#EFKEY 3-30 
compiler—-#BCOMP 
CONDITION keyword program—#KCNDI 3-49 
CONFIGURE utility program—#UCNFI 3-129 
COPY file utility overlay (#UCPLI) 3-130 
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flowcharts (continued) flowcharts (continued) 


COPY volume utility program—#UCDIS 3-132 

CRT IOCR—#DSPLY 3-42 

crush and reorder operations 3-25 

data syntax checker-#SDSYN 3-34 

DELETE keyword program—#KD2LE 3-51 

desk calculator (DCALC)—#VLOAD, #VODKA, 
#VXITI 3-277 

disk IOCS routines (DL2ICS, DL4ICS) 3-102 

EDIT keyword program—#KEDIT 3-53 

ENABLE/DISABLE keyword program—#KENAB 3-58 

error message program—#ERRPG 3-19 

error program interface-NCAERK, $CAERK 3-11 

EXPAND utility program—#UEXLI 3-134 

EXTRACT (#KEXTR) 3-40 

filename directory entry subroutine 3-117 

find disk data file-#SIFFIN 3-224 

find specified file subroutine—SFINDF 3-111 

find volume-ID subroutine-SVOLID 3-113 

HELP keyword program—#KHELP 3-63 

INITIALIZE disk utility program—#UINIT 3-135 

inquiry request routine-NQUIRY 3-12 é 

I/O error logging routine-NERLOG, $ERLOG 3-11 

IPL bootstrap loader—#MLOAD = 3-3 

IPL interface-MOPPET 3-3 

interpreter—#INSTD, #INLNG 3-212 

keyboard IOCR—DEPRES 3-38 

keyboard physical IOCS (DCALC)—DVPRSC 3-275 

keyword table entry—#ECMAN 3-29 

line printer interface-DLPRNT 3-104 

LIST keyword progran—#KLIST 3-68 

LISTCAT keyword program—#KCTLO 3-70 

loader-#LOADR 3-199 

logical IOCS for disk data files-#SFLOA 3-225 

LOGON/OFF keyword program—#KLOGO 3-72 

maintenance program load trace-—#ZTRAC 3-44 

maintenance utility monitor-#ZUTMO = 3-147" 

matrix printer IOCR—DPRINT 3-36 

MERGE keyword program (#KMERG) 3-74 

MOUNT keyword program—#KMOUN 3-75 

nucleus initialization program—#MIPPE 3-3 

null directory entry subroutine 3-116 

pack file library subroutine—#SPACK 3-123 

PACK utility program—#UPACK 3-137 

PASSWORD keyword program—#KPASW 3-76 

printer and error program interface-$ERLOG, $SPRNT, 
$CAERK 3-11 

program interruption processor 3-20 

PROTECT keyword program—#KPRTC 3-77 

PTF utility program—#UPTFI 3-139 

PULL/POOL keyword program—#KPOOL 3-79 

READ keyword program—#KREAD 3-81 

RELABEL keyword program—#KRLAB 3-82 

REMOVE keyword program—#KRMOV 3-84 

RENAME keyword program—#KNAME 3-86 

RENUMBER keyword program—#KRNUM 3-88 

resident disk physical IOCS—DKDISK, $DISKN 3-4 

RESUME keyword program—#KRSUM 3-90 

RUN/STEP/TRACE keyword program—#KRUNI 3-91 

save/restore core—NPAUSE, $RSTR, $PAUSD 3-15 

SAVE keyword program 3-93 

search filename directory subroutine-SRCHFN 3-115 

search null directory subroutine-—SURCHN 3-118 

search password directory subroutine 3-114 

SET keyword program—#KSETI, #KSOVR 3-94 

SUSPEND keyword program—#KSSPN 3-96 

SYMBOLS keyword program—#KSYMB 3-98 

system initialization (IPL) 3-3 

system loader—-NBLOAD, $BLOAD, $RLOAD, $LOADR 
3-17 

system printer physical IOCS-DFPRNT 3-214 

track usage mask utility subroutine-UTKUSE 3-120 


VM dump overlay—-#ZDUMP 3-150 
VTOC-DELETE utility program 3-142 
VTOC-DISPLAY utility program—#UDISV 3-144 
VTOC utility subroutine (UTVTOC) 3-122 
WIDTH keyword program—#KWIDT 3-99 
work file PUT subroutine—GPUTIT 3-107 
work file update, crush, and reorder 3-25 
work file update/crusher—#GUFUD 3-26 
flowcharting techniques 1-3 
FNO (X‘12’), function call—no argument, pseudo instruction 
3-234 
FN1 (X‘14’), function call—one argument, pseudo instruction 
3-234 
FOR, PMC syntax 3-182 
FOR (X‘4E’), initiate FOR loop, pseudo instruction 3-247 
formats 
arithmetic packed-decimal 3-268 
arithmetic unpacked-decimal 3-268 
BASIC program file structure 5-18 
character field 3-163 
configuration record 5-7 
cylinder zero (#HUINIT) 3-136 
data record, general description 2-11 
DCF (disk control field) 3-8 
delete parameter list 5-29 
directories to system library file 5-15 
disk address conversion to two-byte address 7-3 
disk control field 5-29 
disk parameter list 5-28 
disk statistical data recording 5-9 
disk volume 5-6 
end of file record 5-22 
error history log 5-8 
file directory 1 5-21 
file directory 2. 5-23 
file index table 5-20 
filename directory block 5-17 
help text records 5-26 
individual volume statistics and master SIO table 5-9 
internal to decimal 3-267 ; 
keyboard-generated data files 2-8 
nondisk statistical data recording 5-10 
NUCLES (system communication area) 5-2 
null directory 5-15 
outboard recording 5-11 
password directory: 5-16 
print parameter list 5-27 
pseudo instruction 3-229 
sector 3-7 
segment descriptor field | 5-22 
system 
communication area (NUCLES) 5-2 
files, description 2-4 
help text file 5-25 
library file 5-15 
track 3-7 
user program data files 2-8 
volume label 5-12 
volume table of contents (VTOC) 5-14 
FQLRND-—random number generator 3-222.2 
FQSRND—random number generator 3-222.2 
fraction, floating-point atithmetic 3-266 
function call 
indirect (FCI) pseudo instruction 3-235 
no argument (FNO) pseudo instruction 3-234 
one argument (FN1) pseudo instruction 3-234 
operations (see also pseudo instructions) 3-234 
FZAM1O—matrix I/O routines 3-221 
FZCMPR—matrix print routines 3-221 
FZDMIP—keyboard input to a matrix 3-221 
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FZLINT-—trace line numbers subroutine 3-222 
FZSPRT-—print and carrier positioning 3-219 
FZUPRT-—print using image 3-220 

FZVART-trace variables subroutine 3-222 
FZXINP—keyboard input 3-218 

FZZVMP-—virtual memory push/pull subroutine 3-222 


GCPACK-~— pack BASIC program statements 3-22 
general error message equates-@ERMEQ, @SEREQ 4-9 
generate 
stack-arithmetic-values 3-167 
stack-character expressions 3-166 
stack-update-matrix descriptor PMC sequences 3-176 
stack-variable-address PMC sequences 3-175 
generator entry point, branch 3-156 
generators, PMC 3-155 
GET 
card entry points (FZXINP) 3-219 
matrix operations (FZAMIO) 3-221 
PMC syntax 3-183 
pseudo instruction execution, label trace 3-226 
(X*‘52’), input data element, pseudo instruction 3-239 
GET/PUT usage in compiler 3-155 
GO 
keyword program—#KGOSL 3-61 
usage with RESUME (#KRSUM) 3-89 
GOSUB, PMC syntax 3-183 
GOTO 
multiple, PMC syntax 3-183 
simple, PMC syntax 3-183 
GPUERR (#KRLAB) 3-82 
GPUTIT 
usage in #KRLAB 3-82 
work file PUT subroutine 3-107 


GRABIT 
usage in 
| #KCALL 3-46.1 
#KRLAB 3-82 


work file retrieval subroutine 3-109 
| GRAPRO (#GRAPR) 3-40.1 
GUFCSH-—work file crush and reorder 3-24 
GUFCWA-—work area (GUFPAK) 3-26 
GUFENT initialization 3-22 
GUFPAK-—pack core buffers subroutine 3-24 
GUFRDR reorder section (GUFCSH) 3-24 
GUFSCL check for input line complete (GUFCSH) 3-24 
GUFUPD-—work file update 3-22 
GUU110 usage in GUFUPD = 3-23 


H 
restore core and halt (#ZUTMO) 3-145 
return to system with halt option, operating procedure 6-4 
halt 
execution, (HLT), pseudo instruction 3-261 
indicator equates-@HLTEQ 4-9 
option (H), operating procedure 6-4 
2345 6-18 
hard halt (DEPRES) 3-38 
HDR statement, PTF command 6-7 
help text file 
general description 2-7 
PYF’s (HUPTFI) 3-138 
help text records format 5-26 
HELP keyword program—#KHELP 3-62 
HLT (halt execution) 
processing 3-206 
(X‘04’), pseudo instruction 3-261 
holes in virtual memory 3-157 
how to 
lay out 
execution-time core dump 7-7 
virtual memory (long precision) 7-7 
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virtual memory (standard precision) 7-3 
take a sequential disk dump of virtual memory 7-1 
use the FE map 6-16 
ISPARM parameter 3-219 
IBM-assigned command key functions 5-30 
identification of programsin FE map 6-16 
identification of program numbers 6-16 
IF (arithmetic), PMC syntax 3-184 
IF (character), PMC syntax 3-184 
IF (character, string), #PMC syntax 3-184 
image conversion specifications (FZUPRT) 3-220 
image printing, interpreter 3-220 
image statement exception 3-159 
image statement header(:), eto pseudo instruction 3-262 
IMAGE (:), PMC syntax 3-184,1 
IMH execution in trace line number mode (FZLINT) 3-222 
IMH (image statement header) processing 3-206 
IMH (X‘66’), image statement header, pseudo instruction 3-262 
IMINIT—interpreter initiator 3-205 
index cursor to next line—DSINDX 3-42 
index to error message text (DCALC) 3-273 
individual volume statistics and master SIO table format 5-9 
INI (X‘56’), initiate keyboard input, pseudo instruction 3-240 
initialization, compiler 3-155 
initialization of elements in virtual memory—LVINIT 3-194 
initialize BASIC compiler 3-179 
INITIALIZE disk utility program—#UINIT 3-134 
initialized disk size, VTOC-DISPLAY (#UDISV) 3-144 
initializing arithmetic elements 3-195 
initializing array elements 3-195 
initiate FOR loop, (FOR), pseudo instruction 3-247 
initiate keyboard input, (INI), pseudo instruction 3-240 
input data element, (GET), pseudo instruction 3-239 
input an element from an external data file-SFGETR 3-218 
input information to SUSPEND 3-95 
input line elements, convert and stack 3-219 
input/output operations (see also pseudo instruction) 3-239 
input parameters 
to BAGETC 3-160 
to BDSYMB 3-165 
to BRATAB 3-177 
toINTERP 3-207 
toISTACK 3-210 
tolUSTAK 3-211 
to LSORTA = (3-197 
input text pointers 
BECSCN 3-166 
BFSCAN 3-168 
BLISTA 3-176 
BMATXR_ 3-176 
INPUT, PMC syntax 3-184.1 
INPUT statement execution (FZXINP) 3-218 
inquiry request during MAT INPUT statement 3-221 
inquiry request routine-NQUIRY, $CIENT, $UNMSK 3-12 
inquiry request switch (DEPRES) 3-37 
interface to main IPL program (IPL) 3-3 
interface to system printer IOCR—NSPRNT, $SPRNT 3-10 
internal floating-point 3-264 
INTERP, common work areas 3-208 
INTERP entry points 3-206 
INTERP-—interpreter executive 3-206 
interpretation, I/O parameter list area 6-10 
interpreter 
#INSTD, #INLNG flowchart 3-212 
assembly listings 3-201 
common work areas (INTERP) 3-208 
core map (8k system) 3-207 
core resident routines~#INSTD, #INLNG 3-201 
cycle 3-201 
detailed program description 3-201 
execution overlay programs 3-222.1 
executive-INTERP 3-206 
expanded core utilization 3-206 
fixed equates—$SI$EQU 4-10 
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interpreter (continued) 
general description 2-10 
initiator-IMINIT 3-205 
labeling conventions 3-205 
parameter I$PARM 3-220 
program description conventions 3-205 
program general description 2-4 
virtual-memory module referencing conventions 3-205 
virtual memory resident execution subroutines— 
#FMSTD and #4FMLNG 3-202 
interrupt identification (#EXMSG) 3-20 
intrinsic functions 3-165 
1l/o 
error logging routine-NERLOG, $ERLOG 3-9 
execution subroutines 3-214 
functions-DPRINT 3-35 
information record (file directory 1) 2-11 
information sector, allocation and description 2-8 
input from data recorder (DFRDIN) 3-216 
to keyboard (DFKEYN) 3-214 
to line printer 3-214 
to matrix printer 3-214 
output to data recorder (DFCOUT) 3-123 
parameter list, modification of nucleus to save 6-11, 6-12 
parameter list, procedure to display 6-11 
parameter list, procedure to save’ 6-11 
parameter list, sample listing 6-11 
parameter list save area, general description 6-10 
routines 
card punch IOCR—DCDOUT 3-105 
card reader—#DREAD 3-39 
conversational- #DPRIN 3-35 
CRT—#DSPLY 3-41 
error logging-NERLOG, $ERLOG 3-9 
keyboard—DEPRES 3-37 
line printer interface-DLPRNT 3-103 
matrix printer-DPRINT 3-35 
printer functions-DPRINT 3-35 
resident disk physical—DKDISK, $DISKN 3-4 
system printer-NSPRNT, $SPRNT 3-10 
IPGMDL entry points 3-209 
IPGMDL-—paging subroutine 3-209 
IPL (initial program load) 
bootsirap loader-—#MLOAD 3-2 
flowchart 3-3 
interface-MOPPET 3-2 
ISTACK-—element stacking subroutine 3-210 
ISTACK input parameters 3-210 
IUSTAK 
element unstacking subroutine 3-210 
input parameters 3-211 
output parameters 3-211 
IZCOMM, interpreter core address referencing 3-205 


KALLOC (#KALLO) 3-45 
KCALLN (#KCALL) 3-46.1 
KCHANG (#KCHAN) 3-47 
KCNDIT (#KCNDI) 3-49 
KCTLOG (#KCTLO) 3-69 
KDELET (#KDELE) 3-50 
KDISPL (#KDISP) 3-53 
KDNTER (#KDNTE) 3-59 
KDOVRL (#KDOVR) 3-53 
KEDITN (#KEDIT) 3-55 
KENABL (#KENAB) 3-57 
KEXTRC (#KEXTR) 3-59 
key functions (DEPRES) 4-37 
key functions, command, IBM-assigned 5-30 
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keyboard 
display on system printer (DFKEYN) 3-214 
enable for data entry (FZXINP) 3-218 
enable (DCALC) 3-275 
generated data files 
format 2-8 
general description 2-6 
organization 2-7 
input—FZXINP 3-218 
input to a matrix—FZDMIP 3-221 
interrupt (DEPRES) 3-38 
IOCR—DEPRES 3-37 
physical IOCS—DVPRSC (DCALC) 3-275 
KEYS keyword program—#KKEYS 3-64 
keyword 
commands, description 1-1 
entry table (#ECMAN) 3-28 
general description 2-1 
programs 
ALLOCATE (#KALLO) 3-45 
CHANGE (#KCHAN) 3-47 
CONDITION (#KCNDI) 3-49 
DELETE (#KDELE) 3-50 
DISABLE (#KENAB) 3-47 
DISPLAY (#KDISP, #KDOVR) 3-53 
EDIT (#KEDIT) 3-55 
ENABLE (#KENAB) 3-57 
ENTER (#KDNTE) 3-59 
EXTRACT (#KEXTR) 3-59 
GO (#KGOSL) 3-61 
HELP (#KHELP) 3-62 
KEYS (#KKEYS) 3-64 
LIST (#KLIST) 3-66 
LISTCAT (#KCTLO) 3-69 
LOGON/OFF (#KLOGO) 3-71 
MERGE (#KMERG) 3-73 
MOUNT (#KMOUN) 3-75 
PASSWORD (#KPASW) 3-76 
PROTECT (#KPRTC) 3-77 
PULL/POOL (#KPOOL) 3-78 
READ (#KREAD) 3-81 
RELABEL (#KRLAB) 3-81 
REMOVE (#KRMOV) 3-83 
RENAME (#KNAME) | 3-85 
RENUMBER (#KRNUM, #KROVL) 3-87 
- RESUME (#KRSUM) 3-89 
RUN/STEP/TRACE (#KRUNI) 3-91 
SAVE (#KSAVE) 3-92 
SET (#KSETI, #KSOVR) 3-94 
SUSPEND (#KSSPN) 3-95 
SYMBOLS (#KSYMB) 3-96 
WIDTH (#KWIDT) 3-99 
WRITE (#KWRIT) 3-100 
syntax (see syntax, PMC) 
KGOSLO (#KGOSL) 3-61 
KHELPN (#KHELP) 3-62 
KKEYSP (#KKEYS) 3-64 
KLISTN (#KLIST) 3-66 
KLOGON (#KLOGO) 3-71 
KMERGE (#KMERG) 3-73 
KMOUNT (#KMOUN) 3-75 
KNAMES (#KNAME) 3-85 
KPASWD (#KPASW) 3-76 
KPOOLN (#KPOOL) 3-78 
KPRTCT (#KPRTC) 3-77 
KREADN (#KREAD) 3-81 
KRLABL (#KRLAB) 3-81 
KRMOVE (#KRMOV) 3-83 
KRNUMB (#KRNUM) 3-87 
KRSUME (#KRSUM) 3-89 
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KRUNIT (#KRUNI) 3-91 
KSAVEN (#KSAVE) 3-92 
KSOVRL (#KSOVR) 3-94 
KSSPND (#KSSPN) 3-95 
KSYMBL (#KSYMB) 3-97 
KWIDTH (#KWIDT) 3-99 
KWRITE (#KWRIT) 3-100 


label 
list, cross-reference 4-7 
source module 4-7 
trace 
ADD pseudo instruction execution 3-226 
ENTER+ function (DCALC) 3-273 
GET pseudo instruction 3-226 
S/N function 3-273 
labeling conventions 
compiler 3-145 
interpreter 3-205 
LALLOC-~— allocation of arrays in virtual memory 3-193 
LCB (list control block) 3-66, 3-67 
LDFILE-~allocation of data file buffersin VM 3-194 
LET 
PMC syntax 
arithmetic, multiple 3-184.1 
arithmetic, simple 3-184.2 
character 3-184.2 
character, multiple, string 3-184.2 
library directory creation (HUALLO) 3-128 
library file, procedure to find 6-15 
library 
map and test,M 3-145 
mapping option 6-4 
mapping overlays 3-150 
line 
addition (GUFUPD) 3-23 
numbers 
branch address table 3-197 
Virtual-memory-location order 3-196 
printer interface-DLPRNT 3-103 
printer physical IOCR-—DCFPRT 3-214 
record 2-8 
replacement (GUFUPD) 3-23 
list control block (LCB) 3-66, 3-67 
LIST keyword program—#KLIST 3-66 
LISTCAT keyword program—#KCTLO 3-69 
load GUFUDI (#UALLO) 3-128 
loader 
#LOADR flowchart 3-199 
second phase of compilation-#LOADR 3-193 
lock and read only indicator table 3-222 
logical 
division of system programs and components 2-1 
IOCS for disk data filese-#SFLOA 3-225 
operations (see also pseudo instructions) 3-244 
read or write operation, IOCS 3-5 
tules for converting arithmetic expressions to pseudo 
instruction sequences 3-169 
LOGON/OFF keyword program-#KLOGO 3-71 
long precision 
execution equates-$I@LEQ 4-11 
floating-point data 3-266 
subroutines 3-155 
LRADDR-resolution of the branch address table 3-196 
LSORTA-sorting the branch address table 3-197 


LVINIT—initialization of elements in virtual memory 3-194 
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M 
library map and test (4ZUTMO) 3-145 
library mapping option 64 
machine 
configuration, minimum 1-2 
instruction formats A-2 
instructions reference table A-1 
mnemonic operation codes A-1 
maintenance . 
map, how to use 6-16 
program laod trace—#ZTRAC 3-44 
utilities 3-145 
utilities, stand-alone dump 6-12 
utility aid (HEXMSG) 3-20 
utility aid program—#ZUTMO 6-1 
utility aid program, operating procedures 
CD-coredump 6-1 
CP—core patch 6-3 
DC-—disk compare 6-3 
DD-—disk dump 6-2 
DP-—disk patch 6-3 
DW-disk write 6-4 
H-halt 64 
M-library mapping 64 
R-—return to operating system 6-4 
T-trace 64 
VM-—virtual memory dump 6-2 
utility core map example 3-146 
utility monitor—#ZUTMO, detailed program description 
3-145 
map of virtual memory 7-5 
mapping overlays, library 3-150 
MAT GET, PMC syntax 3-186 
MAT GET statement matrix operations (FZAMIO) 3-221 
MAT INPUT 
entry points (FZXINP) 3-219 
PMC syntax 3-186 
statement matrix operations (FZDMIP) 3-221 
MAT, PMC syntax 3-185 
MAT PRINT, PMC syntax 3-187 
MAT PRINT statement matrix operations (FZCMPR) 3-221 
MAT PRINT USING, PMC syntax 3-187 
MAT PRINT USING statement matrix operations 
(FZCMPR) 3-221 
MAT PUT, PMC syntax 3-188 
MAT PUT statement matrix operations (FZAMIO) 3-221 
MAT READ, PMC syntax 3-188 
MAT READ statement matrix operations (FZAMIO) 3-221 
matrix ; ; 
end of row (mask X‘20’) 3-221 
inversion/determinant-#FISTD, #FILNG 3-222.1 
I/O routines-FZAMIO 3-221 
operations for arrays referenced by MATINPUT 3-221 
print routines—FZCMPR 3-221 
printer calling routine (NSPRNT) 3-10 
printer I/O routine (DFPRNT) 3-214 
printer IOCR—DPRINT 3-35 
‘reference PMC subroutine-BMATXR 3-176 
scalar multiply, (MSM), pseudo instruction 3-233 
MERGE keyword program—#KMERG 3-73 
message table entry (HERRPG) 3-18 
method to activate address stop 6-17 
method of operation section 2 2-1 
MFI (X‘18’), single matrix function call, pseudo instruction 
3-236 
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MF2 (X‘1A’), double matrix function call, pseudo instruction 
3-237 

MF3 (X‘1C’), triple matrix function call, pseudo instruction 
3-238 

microfiche assembly listing directory 4-] 

minimum machine configuration 1-2 

miscellaneous execution subroutines 3-222 

miscellaneous operations (see also pseudo instructions) 3-261 

mnemonic operation codes (machine) A-1 

modification of nucleus to save I/O parameter lists 6-11, 6-12 

modify volume ID table entries (#UCNFI) 3-129 

modules composed of equates 4-7 

MOPPET-IPL interface 3-2 

MOUNT keyword program—#KMOUN 3-75 

MPY (X‘0A’), multiply, pseudo instruction 3-231 

MSM (X‘1E”’), matrix scalar multiply, pseudo instruction 3-233 

multiple sector transfer operations (#SFLOA) 3-225 

multiply, (MPY), pseudo instruction 3-231 


NABORT, $CAIPL, $CARPL, $CABLD 3-12 
NBLOAD 
core map 3-16 
system loader 3-16 
NBLRTN (NBLOAD) 3-17 
NBLZTR (NBLOAD) 3-17 
NCABLD (NABORT) 3-13 
NCAERK, $CAERK-—error program interface 3-10 
NCAIPL (NABORT) 3-13 
NCIENT (NQUIRY) 3-13 
NCIEXT (NQUIRY) 3-13 
NEG (X‘10), negate, pseudo instruction 3-232 
negate (NEG) pseudo instruction 3-232 
negative fraction, floating point arithmetic 3-266 
NERLOG, $ERLOG—1/O error logging routine 3-9 
NERLOG overlay flowchart 3-11 
NEROVR (NERLOG overlay) 3-11 
nesting stack-expression-values 3-167 
NEW file (#KALLO) 3-45 
next address switch (B$NXSW) 3-158 
NEXT PMC syntax 3-188 
nondisk statistical data recording format 5-10 
nonexecutable operations (see aiso pseudo instructions) 3-263 
NO-NUM parameter usage in LIST 3-66 
normalized decimal number 3-266 
NPAUSE-save/restore core 3-14 
NQUIRY, $CIENT, $UNMSK~—inquiry request routine 3-12 
NSPRNT, $SPRNT-—interface to system printerIOCR 3-10 
NUCLES—system communication area 
description 3-9 
format 5-2 
nucleus ; 
core map 3-4 
initialization program—#MIPPE 3-2 
IPL flowchart 3-3 
modification to save I/O parameter lists 6-11, 6-12 
six-byte area identifying last six program modules loaded 
by system 6-16 
null 
character constant (code X‘03’) 3-220 
directory entry subroutine-STORIN 3-116 
directory format 5-15 
directory search subroutine (SURCHN) 3-123 
image specification (code X‘01’) 3-220 
print list specification (code X‘02”) 3-220 
NUMMSK (NQUIRY) 3-13 
NXT (X‘50") perform next step, pseudo instruction 3-249 
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object program 
detailed format and description (see also compiler and 
pseudo instruction) 7-1 
introduction 2-9 
virtual memory concept 2-8 
OBR (outboard recording) 
format 5-11 
NERLOG recording in 3-9 
OFF keyword program—#KLOGO 3-71 
one-star (*) library 
directory 5-11, 5-15 
general description 2-6 
operand address bucket-B$BCKT 3-168 
operands 
arithmetic expression 3-167 
unresolved in virtual memory 3-196 
operating procedure, maintenance utility aid program 6-1 
operation code, machine instruction A-3 
optional devices supported 1-2 
organization 
assembly listings in compiler 3-153 
assembly listings (DCALC) 3-269 
interpreter assembly listings 3-201 
keyboard-generated files 2-7 
PMC generators on disk 3-158 
program-generated files 2-7 
outboard record (OBR) 


format 5-11 
NERLOG recording of 3-9 
output 


data element, (PUT), pseudo instruction 3-239 
element to external data file-SFPUTR 3-218 
parameters from 
BAGETC 3-161 
BDSYMB_ 3-165 
IUSTAK 3-211 
parameters toINTERP 3-208 
overflow, automatic line number (#GUFUD) 3-26 
overlay 
library mapping 3-150 
patch of disk resident system program 6-14 
sectors transient area 3-158 
for SEI (#KSOVR) 3-94 
OWNERID print, VTOC-DISPLAY (#UDISV) 3-144 


pack 
arithmetic constant (#SDSYN) 3-34 
BASIC program statements—GCPACK 3-22 
core buffers subroutine-—GUFPAK 3-24 
file library subroutine~#SPACK 3-123 
PACK utility program—#UPACK 3-137 
packed 
data in system work file 3-23 
decimal format, arithmetic 3-268 
decimal format, floating-point arithmetic 3-266 
packing subroutine (GUFPAK) 3-24 
padding EOP instructions, description 3-162 
page 
boundary, element stacking 3-210 
boundary, element unstacking 3-210 
reference table (IPGMDL) 3-206 
pages, general description 2-8 
paging 
central work area 3-210 
general description 2-8 
module (IPGMDL) entry points 3-209 
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paging (continued) 
subroutine-IPGMDL 3-209 
subroutine tables 3-210 
subroutine work areas 3-209 
subroutines from virtual memory, example 3-226 
parameters 
allocation of arrays in virtual memory 3-193 
array allocation 3-193 
B$PCAD—PMC string core address 3-162 
BS$PFNC—function code 3-161 
BSPNBY—PMC string length minus 1 3-162 
compiler/loader common area 3-192 
I$PARM print and carrier positioning 3-219 
I$PARM print using image (FZUPRT) 3-220 
input to BAGETC 3-160 
input to BDSYMB_ 3-165 
input to BRATAB 3-158, 3-159 
input constants passed by BCFCON 3-162 
input toINTERP 3-207 
input toISTACK 3-210 
input toIUSTAK 3-211 
output from BAGETC 3-161 
output from BDSYMB 3-165 
output toINTERP 3-208 
output from IUSTAK. 3-211 
passed to UTKUSE subroutine 3-119 
passed to UTVTOC subroutine 3-121 
sort input to LSORTA 3-197 
TRACE keyword statement 3-195 
parity error (DEPRES) 3-38 
password directory 
description 2-6 


format 5-16 
PASSWORD keyword program—#KPASW 3-76 
patching 


disk resident system program 6-14 
nucleus to save I/O parameter list 6-11, 6-12 
pause execution condition 3-14 
PAUSE, PMC syntax 3-188 
perform 
next step, (NXT), pseudo instruction 3-249 
surface analysis 3-135 
PERMANENT file (#KALLO) 3-45 
physical disk addresses, OCS 3-5 
PIAR (pseudo instruction address register) 3-201 
PMC (pseudo machine code) 
general description 2-10 
generator 
accessing 3-155, 3-156 
address resolution 3-157 
organization on disk 3-158 
return 3-160 
statement processor overlays-#BOVLY 3-154 
instruction set 3-227 
reference list 3-228 
sequence showing branch instructions 3-161 
statement processors, general specifications 3-177 
syntax (see syntax, PMC) 
pointers for elements in virtual memory 3-165 
POOL keyword program—#KPOOL 3-78 
pooled (one-star) library, general description 2-6 
popup usage in LIST 3-66 
power (exponentiate) 
arithmetic operation, pseudo instruction 3-232 
floating-point arithmetic 3-266 
PPL (print parameter list) format 5-27 
primary data element (code X‘06’) 3-220 
PRIMARY disk initialization (#UINIT) 3-135 
prime and load GUFUDI (HUALLO) 3-128 
print 
both CRT and matrix printer-DSPYMP 3-41 
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print (continued) 
and carrier positioning 
codes 3-219 
FZSPRT 3-219 
CRT—DSPLYN 3-41 
DPRINT 3-35 
function in #DSPLY 3-41 
image in virtual memory (FZUPRT) 3-220 
and no space (code X‘01°) 3-219 
packing message and load overlay #SPOVL 3-123 
parameter list format 5-27 
program header (NBLOAD) 3-17 
and return 
carrier (code X‘04’) 3-219 
element function in DPRINT 3-35 
function in #DSPLY 3-41 
and space 
carrier (PRS) pseudo instruction 3-242 
full zone (code X‘02’) 3-219 
packed zone (code X‘0Q3’) 3-219 
terminal error messages (#ERRPG) 3-18 
using image—FZUPRT 3-220 
using image (PRU) pseudo instruction 3-243 
PRINT 
full zone format (FZCMPR) 3-221 
packed zone format (FZCMPR) 3-221 
PMC syntax 3-189 
statement data output (FZSPRT) 3-219 
PRINT USING 
matrix operations (FZCMPR) 3-221 
PMC syntax 3-189 
printer 
CRT functions (#DSPLY) 3-41 
error (#ZTRAC) 3-44 
printer (matrix) 
calling routine (NSPRNT) 3-10 
IOCR—DPRINT 3-35 
printer output, interpreter (FZSPRT) 3-220 
priority of pseudo instructions 3-168 
procedure 
file lines, description 1-1 
file line processor—#GRAPR  3-40.1 
line checker—#SPSYN  3-34.1 
procedure to save I/O parameter lists 6-11 


process 
date (IPL) 3-3 
unconditional 


ASSIGN 3-126 
UNASSIGN 3-126 
processor address table 
BHDPAT format 3-158 
description 3-156 
description of statements 1-1 
program 
descriptions, conventions of interpreter 3-205 
inFE map 6-16 
file 
file directory 1 record description 2-11 
I/O information sector description 2-8 
flowcharting techniques 1-3 
generated files 
general description 2-6 
organization 2-7 
header printing (#ZTRAC) 3-44 
interruption processor—#EXMSG 3-20 
loading, address stop procedure 6-17 
logical devision of system 2-1 
major system components 
common subroutines, detailed description 3-101 
common subroutines, general description 1-1, 2-4 


Index 
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program (continued) 
major system components (continued) 
compiler, detailed description 3-153 
compiler, general description 2-1 
control, detailed description 3-1 
control, general description 2-1 
desk calculator (DCALC), detailed description 3-269 
desk calculator, general description 1-2, 2-4 
interpreter, detailed description 3-201 
interpreter, general description 2-4 
keyword, detailed description 3-45 
keyword, general description 2-1 
loader, detailed description 3-193 
loader, general description 2-1 
utility, detailed description 3-125 
utility, general description 2-1 
minimum machine configuration 1-2 
modules, last six loaded by system 6-16 
numbers, identification 6-16 
organization, section 3 3-1 
for stand-alone dump 6-13 
start key (DEPRES) 3-37 
statements, general description 1-1 
supported optional devices 1-2 
System/3 BASIC system, description 1-1 
temporary fix command (see PTT’ commands) 
temporary fixes utility program (#UPTFI) 3-138 
PROTECT keyword program—#KPRTC 3-77 
protection, file, track usage mask 2-5 
PRS (X’60’), print and space carrier, pseudo instruction 3-242 
PRU (X’62’) print using index, pseudo instruction 3-243 
pseudo instruction 
address register (PIAR) 3-201 
detailed description 
ADD (X‘06’), add = 3-230 
ADF (X’58’), activate external data file 3-240 
BNX (X°4A’), branch and suppress execution 3-246 
BRA (X°46’), branch unconditionally 3-245 
BRC (X°44’), branch on condition . 3-245 
BRD (X°48’), branch and delete function entry 3-245 
BRS (X’4C’), branch to stacked address 3-246 
CLS (X°5E’), close external data file 3-241 
CMC (X?42’), compare character elements 3-244 
CMF (X’40’), compare floating point values 3-244 
CSA (X73E’), compute stacked address 3-260 
DCA (X’6A’), define constant address 3-263 
DDL (X’6C’), define data linkage 3-264 
DIV (X°0C’), divide 3-231 
DWA (X’6E’), define work area 3-265 
EOF (X°70’), end of program 3-265 
EOP (X’68’), end of page 3-262 
FCI (X°16’), function call—indirect 3-235 
INO (X?12’), function call—no argument 3-234 
FNL (X°14’), function call—one argument 3-234 
FOR (X°4E’), initiate FOR loop 3-247 
GET (X’52’), input data element 3-239 
HLT (X°04’), halt execution 3-261 
IMH (X’66’), image statement header 3-262 
INI (X°56’), initiate keyboard input 3-240 
MFI (X’18?), single matrix function call 3-236 
MF2 (X’1A’), double matrix function call 3-237 
MF3 (X°1C’), triple matrix function call 3-238 
MPY (X’0A’), multiply 3-231 
MSM (X°1E”), matrix scalar multiply 3-233 
NEG (X?10°), negate 3-232 
NXT (X’50’), perform next step 3-249 
PRS (X’60), print and space carrier 3-242 
PRU (X’62’), print using index 3-243 
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pseudo instruction (continued) 
detailed description (continued) 
PUT (X’52’), output dataelement 3-239 
PWR (X’0E’), exponentiate (power) 3-232 
RSR (X’SA’), restore internal data file pointer 3-241 
RST (X°5C’), reset external data file pointer 3-241 
SAI (X’36’), stack vector array element address 3-257 
SA2 (X’38’), stack matrix array element address 3-258 
SB1 (X’3A’), stack character array element address 3-259 
SCI (X’24’), stack character array field 3-253 
SDO (X’2E’), stack arithmetic array descriptor 3-254 
SD1 (X‘30’), stack arithmetic array descriptor 
(redimension 1) 3-255 
SD2 (X‘32’), stack arithmetic array descriptor 
(redimension 2) 3-256 
SFI (X’22’), stack arithmetic vector element 3-250 
SF2 (X’24’), stack arithmetic matrix element 3-251 
STA (X’34’), stack virtual address 3-257 
STC (X’28’), stack character field 3-252 
STF (X’20’), stack floating point value 3-249 
STH (X’64’), statement header 3-261 
STX (X’3C’), stack execution control code 3-259 
SUB (X’08’), subtract 3-230 
SVC (X’02’), supervisor call 3-261 
USC (X’2C’), unstack character element 3-254 
USF (X’26’), unstack floating point element 3-252 
formats 3-229 
general description 2-10 
priority 3-168 
reference list 3-228 
sequences (see also syntax, PMC) 3-181 
set 3-227 
pseudo machine code (PMC) interpret (#ZDUMP) 3-149 
pseudo machine language concept (pseudo object program) 2-8 
PTF command 
finding addresses 2-6 
operating procedure 6-6 
statements 
DATA 6-9 
END 6-9 
HDR 6-7 
PTF 6-8 
PTF END statement usage in #UPTFI 3-138 
PTF file, general description 2-7 
PTF HDR (#UPTFI) 3-138 
PTF operating procedure 6-6 
PTF statement, PTI’ command 6-8 
PTF utility program—#UPTFI 3-138 
PULL/POOL keyword program-#KPOOL 3-78 
PUT, matrix operations (FZAMIO) 3-221 
PUT, PMC syntax 3-189 
PUT subroutine—GPUTIT 3-107 
PUT (X’54’), output data element, pseudo instruction 3-239 
PWR (X’0E’), exponentiate (power), pseudo instruction 3-232 


Q code, machine instruction A-3 
question mark printing 
usage in FZDMIP 3-221 
usage in FZXINP 3-219 


R 
restore core and return to #GUFUD (#ZUTMO) 3-145 
return to system option, operating procedure 6-6 
random number generator 3-222.2 
tead 
all volume labels (IPL) 3-3 
configuration record (#HUCNFI) 3-129 
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read (continued) 
in requested program (NBLOAD) 3-81 
system nucleus and I/O routines into low core (IPL) 3-3 
READ 
keyword program—#KREAD 3-81 
matrix operations (FZAMIO) 3-221 
PMC syntax 3-190 
record format (data), general description 2-11 
records/lines (data area of work file) 2-8 
recovery of I/O parameter list information 6-11 
RELABEL keyword program—#KRLAB 3-81 
relative disk addresses to physical 3-101 
release image (code X’00’) 3-220 
relocate load (NBLOAD) 3-17 
REM, PMC syntax 3-190 
REMOVE keyword program—#KRMOV~ 3-83 
RENAME keyword program—#KNAME 3-85 
RENUMBER keyword program—#KRNUM 3-87 
reorder work file 3-27 
repetition sequence (HGUFUD) 3-22 
reset 
defective flag (#UATRC) 3-127 
external data file pointer, (RST), pseudo instruction 3-241 
RESET, PMC syntax 3-190 
resident disk physical IOCS—DKDISK, $DISKN 3-4 
resolutuion of the branch address table-LRADDR 3-196 
resolving virtual-memory addresses 3-157 
restore internal datafile pointer, (RSR), pseudo instruction 3-241 
RESTORE, PMC syntax 3-190 
RESUME keyword program—#KRSUM 3-89 
return 
carrier (code X’07’) 3-219 
carrier on condition (code X’08’) 3-219 
element (DPRINT) 3-35 
key (DEPRES) 3-37 
to system with halt option (H), operating procedure 6-6 
to system option (R), operating procedure 6-6 
usage in #DSPLY 3-41 
RETURN, PMC syntax 3-191 
rolldown and print (#DSPLY, DSPLYN) 3-41 
rolldown usage in LIST 3-66 
rollup usage in LIST 3-66 
RSR (X’5A’), restore internal data file pointer, pseudo 
instruction 3-241 
RST (X’SC’), reset external data file pointer, pseudo instruction 
3-241 
RUN program name core map (8K system), example 3-156 
RUN as used in #KEDIT 3-55 
RUN/STEP/TRACE 
keyword program—#KRUNI 3-91 
usage incompiler 3-155 


save area, I/O parameter list, general description 6-10 

save/restore core-NPAUSE, $PAUSD, $RSTR 3-14 

SAVE keyword program—#KSAVE 3-92 

saved program file, allocation 2-8 

SAI (X’36’), stack vector array element address, pseudo 
instruction 3-257 

SA2 (X’38’), stack matrix array element address, pseudo 
instruction 3-258 

SB1 (X’3A’), stack character array element address, pseudo 
instruction 3-259 

scaling 3-266 

scan BASIC statement to EOS character 3-180 

scan routine branch table-—BFSTBL 3-168 

scan trace reference list routine 3-199 

SCP (system control program 3-61 

scratch file deletion 

configure utility program #UCNFI 3-129 
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initialize disk utility program #UINIT 3-134 
mount keyword program #KMOUN | 3-75 
nucleus initialization program #MIPPE 3-2 
SCSTRG-— character string check and move (#KCHAN) 3-48 
SCTR-~—initial volume label (#UINIT) 3-136 
SCYLCK (#UATRC) 3-126 
SC1 (X°24’), stack character array field, pseudo instruction 
3-253 
SDF (segment descriptor field) 2-11 
SDF (segment descriptor field) format 5-21 
SDISKS (#UATRC) 3-126 
SDISKS usage in #UDISV 3-144 
SDR (disk statistical data recording) format 5-9 
SDR (nondisk statistical data recording) format 5-10 
SDR (statistical data record), NERLOG 3-9 
SDSYNC (#SDSYN) 3-34 
SDO (X’2E’), stack arithmetic array descriptor, pseudo 
instruction 3-254 
SD1 (X°30’), stack arithmetic array descriptor (redimension 1), 
pseudo instruction 3-255 
SD2 (X°32’), stack arithmetic descriptor (redimension 2), 
pseudo instruction 3-256 
search filename directory subroutine—SRCHFN 3-115 
search null directory subroutine—SURCHN 3-118 
search password directory subroutine—SGETDB 3-114 
search for specified line number 3-26 
search symbol table in trace 3-222 
secondary data element (code X°07’) 3-220 
secondary image segment (code X’05’) 3-220 
section 
1, introduction 1-1 
2, method of operation 2-1 
3, program organization 3-1 
4, directory 4-1 
5, data area formats 5-1 
6, diagnostic aids 6-1 
7, object program = 7-1 
sector, format 3-7 
sector, ID field 3-7 
sector (multiple) transfer operations (HSFLOA) 3-225 
sector resolution (allocation) and organization 3-158 
segment, data record 2-11 
segment descriptor field (SDF) 2-11 
segment descriptor field (SDF) format 5-22 
selected system programs, allocation 2-5 
sequentially occurring data elements 3-218 
SET keyword program—#KSETI, #KSOVR 3-94 
SFADFR-—active external data file 3-218 
SFGETR-input an element from an external data file 3-218 
SFINDF-—find specified file subroutine 3-111 
usage in #KCALL 3-46.1 
SFPUTR-—output an element to an external data file 3-218 
SFRSET-close or reset external data files 3-218 
SFSYNC (#SFSYN) 3-32 
SF1 (X’22’), stack arithmetic vector element, pseudo instruction 
3-250 
SF2 (X’24’), stack arithmetic matrix element, pseudo instruction 
3-241 
SGETDB-~search password directory subroutine 3-114 
usage in #KCALL 346.1 
sift and bubble sort (worst case example) 3-198 
sifting down and bubbling up (LSORTA) 3-197 
sign bit, floating-point arithmetic 3-266 
significant digits, floating-point arithmetic 3-266 
SIN function, label trace of execution 3-273 
single line deletion (GUFUPD) 3-23 
single matrix function call, (MF 1), pseudo instruction 3-236 
single variable references in alist 3-175 
SMFNAM (SRCHEN) 3-115 
SMINDI (SRCHFN) 3-115 
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SMNDEA (SURCHN) 

SMNSCT (SURCHN) 

SMNULT (SURCHN) 

SMUDBA (SRCHFN) 

SMUDEA (SRCHFN) 3-115 

SM1FNE (SRCHFN) 3-115 

sorting the branch address table-LSORTA 3-197 

source module labeling conventions 4-7 

space full zone (code X05) 3-219 

space packed zone (code X’06’) 3-219 

SPADUP (#SPACK) 3-124 

SPAPDT (#SPACK) 3-124 

SPSYNC (#SPSYN)  3-34.1 

SRCHFN- search filename directory subroutine 

usage in (#KCALL) 3-46.1 

STA (X°34’), stack virtual address, pseudo instruction 3-257 

stack arithmetic array descriptor (redimension 1), (SD1), 
pseudo instruction 3-255 

stack arithmetic array descriptor (redimension 2), (SD2), 
pseudo instruction 3-256 

stack arithmetic array descriptor (SDO) pseudo instruction 

stack-arithmetic-expression-value 3-167 

stack arithmetic matrix element (SF2) pseudo instruction 3-251 

stack arithmetic vector element (SF1) pseudo instruction 3-250 

stack-basic-element 3-178 

stack character array element address, (SB1), pseudo instruction 
3-259 

stack character array field (SC1) pseudo instruction 3-253 

stack-character-expression field 3-166 

stack character field (STC) pseudo instruction 3-252 

stack execution control code, (STX), pseudo instruction 3-259 

stack floating point value, (STF), pseudo instruction 3-249 

stack matrix array element address, (SA2), pseudo instruction 
3-258 

stack popper—BFS160 3-168 

stack-update-matrix-descriptor PMC sequences 3-176 

stack and unstack operations (see a/so pseudo instructions) 

stack-variable-address sequences 3-175 

stack vector array element address, (SA1), pseudo instruction 
3-257 

stack virtual address, (STA), pseudo instruction 3-257 

stacked data type codes, entry point (FZXINP) 3-218 

stacked error entry at $$ERSK 3-18 

stand-alone dump, example 6-13 

stand-alone dump program 6-13 

stand-alone dump, usage and procedure 6-12 

standard precision execution equates—$I@SEQ 4-11 

standard precision, floating-point data 3-266 

statement address table 3-159, 3-197 

statement address table, general description 3-157 

statement branch table entry (#SFSYN) 3-32 

statement header, (STH), pseudo instruction 3-261 

statement input subroutine—BAGETC 3-160 

statement line numbers relation to virtual addresses 

statements, PTF 6-7 

statistical data record (SDR), NERLOG 3-9 

STC (X’28’), stack character field, pseudo instruction 3-252 

step mode (#EXMSG) 3-20 

STEP keyword program—#KRUNI 3-91 

STEP as used in #KEDIT 3-55 

STF (X°20”), stack floating point value, pseudo instruction 3-249 

STH execution in trace line number mode (F2LINT) 3-222 

STH (statement header) processing 3-206 

STH (X’64’), statement header, pseudo instruction 3-261 

stop address selection 6-17 

STOP, PMC syntax 3-191 

storage addresses, machine instruction A-3 

storage allocations (see allocation) 

STORIN—null directory entry subroutine 3-116 

STUFID-—filename directory entry subroutine 3-117 


3-118 
3-118 

3-118 
3-115 


3-115 


3-254 


3-249 


3-157 
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STX (X’3C’), stack execution control code, pseudo instruction 


3-259 
SUB (X’08’), subtract, pseudo instruction 
subtract, (SUB), pseudo instruction 3-230 
supervisor call, (SVC), pseudo instruction 
supported optional devices 1-2 
SURCHN--search null directory subroutine 3-118 
SUSPEND keyword program—#KSSPN 3-93 
SVC (supervisor call) processing 3-206 


3-230 


3-261 


SVC (X’02’), supervisor call, pseudo instruction 3-261 
SVOLID-find volume-ID subroutine 3-113 

usage in(#KCALL) 3-46.1 
switch to alternate track (DKDISK) example 3-6, 3-7 


symbol processing in BDSYMB 3-164 
symbol table search in trace 3-222 
symbol tables, BASIC language 3-165 
symbol translator subroutine-BDSYMB 3-164, 3-176 
symbol types 3-164 
SYMBOLS keyword program—#KSYMB_ 3-97 
syntactical units of BASIC statements 3-177 
syntax 
BASIC statement keyword (see syntax, PMC) 
checker for DISPLAY 3-53 
checker for SET 3-94 
DATA statement, PTF command 6-9 
END statement, PTF command 6-9 
HDR statement, PTF command 6-7 
keyword statement (see syntax, PMC) 
PTF command statements 6-7 
PTF statement, PTF command 6-8 
syntax check GET (card) input line (FZXINP) 
syntax, PMC (pseudo machine code) 
CLOSE 3-181 
DATA 3-181 
DEF 3-181 
DIM 3-182 
END 3-182 
FOR 3-182 
GET 3-183 
GOSUB 3-183 
GOTO (multiple) 3-183 
GOTO (simple) 3-183 
IF (arithmetic) 3-184 
IF (character) 3-184 
IMAGE (:) 3-184 
INPUT 3-185 
LET 3-185 
LET (arithmetic, simple) 
LET (character) 3-186 
MAT 3-186 ~ 
MAT GET 3-186 
MAT-INPUT 3-187 
MAT PRINT 3-187 
MAT PUT 3-188 
MAT READ _ 3-188 
NEXT 3-188 
PAUSE 3-188 
PRINT 3-189 
PRINT USING 3-189 
PUT 3-189 
READ 3-190 
REM 3-190 
RESET 3-190 
RESTORE 3-190 
RETURN 3-191 
STOP 3-191 
system 
commands, description 1-1 
communication area—NUCLES 3-9 


3-218 


3-185 
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system (continued) 
communication area (NUCLES) format 5-2 
components directory 4-1 
components and programs, logical division 2-1 
configuration (IPL) 3-3 
configuration record equates-@CNFEQ 4-9 
control program (SCP) 3-59 
equates—#TEQU1 4-7 
equates-#TEQU2 4-11 
file example (Figure 2-2) 2-5 
files, format 2-4 
flow 2-2, 2-3 
and hardware equates-@SYSEQ 4-7 
hardware I/O equates-@HDWEQ 4-8 
help text file format 5-25 
indicator checking at a specific time 6-17 
initialization—IPL, components 3-1 
initialization (IPL) flowchart 3-3 
library file, allocation 2-6 
library file example (Figure 2-3) 2-7 
library file, format (Figure 5-11) 
loader—NBLOAD, $BLOAD, $RLOAD, $LOADR 3-16 
loader (NBLOAD) core map 3-16 
nucleus 3-4 
nucleus core map (Figure 3-2) 3-4 
printer calling routine—$SPRNT 3-41 
printer IOCR interface-NSPRNT, $SPRNT 3-10 
printer IOCR (NSPRNT, $SPRNT) 3-10 
printer output, example of nucleus patch 6-12 
printer output format (FZUPRT) 3-220 
printer physical IOCS—DFPRNT 3-214 
program area equates for relative disk addresses and 
sector counts—@SPFEQ 4-8 
program, disk resident, patching 6-14 
program file 2-6 
program file directory 
sample of disk dump 6-16 
table-##DRTY 5-31 
program file PTF’s (#UPTFI) 3-138 
programs, logical division 2-1 
status check (HGUFUD) 3-26 
stop procedure for core or disk dump 6-17 
stop/system reset/system start (#ZUTMO) 3-145 
work area, general description 2-5 
work area equates for physical disk addresses and sector 
cgunts—@WKAEQ 4-8 
work area (system work file), general description 2-5 
work file IOCS—DL4ICS_ 3-101 
work file (packed data example) 3-23 
work file (system work area), general description 2-5 
System/3 Basic Assembler Language, Appendix A A-1 
System/3 BASIC, description 1-1, 1-2 
System/3 BASIC, program components 3-1 


T 
reverse the program load trace option (#4ZUTMO) 3-145 
trace option, operating procedure 6-4 
tab 
keys(DEPRES) 3-37 
left/tab left and index (#DSPLY) 3-41 
right (#DSPLY) 3-41 
tables 
##CKTB-—command key 5-30 
##DRTY—program file directory 5-31 
#BCOMP-—core resident routines 3-153 
#BOVLY—PMC generator (statement processor overlays) 
3-154 
#ZDUMP branch 3-149 


tables (continued) 
arithmetic array symbol table 3-194 
assembler instruction reference A-3 
BASIC program file structure 5-18 
branch address 3-160 
branch and statement address 3-197 
character array symbol 3-195 
compiler filename 3-157 
compiler/loader common parameter area 3-192 
configuration record 5-7 
contents of virtual memory (interpreter) 3-202 
conversion of virtual addresses to disk addresses 7-2 
CRT line segment table (CLST) 3-67 
delete parameter list 5-29 
directories to system libraray file 5-15 
disk 
control field 5-29 
parameter list 5-28 
statistical data recording 5-9 
volume format 5-6 
DPL (disk parameter list) 3-5 
end of file record 5-22 
end of paging subroutine 3-210 
entries forI/O record 3-45 
error history log 5-8 
error recovery procedure (DKDISK) 3-6 
. example of floating-point numbers 3-267 


exponent conversion (internal format to decimal) 3-267 


file 
directory 1 5-21 
directory 2 5-23 
index table 5-20 
library addresses and tables—@DIREQ 4-9 
filename directory block 5-17 
help text records 5-26 
individual volume statistics and master SIO 5-9 
initialization of elements in virtual memory 3-194 
I/O parameter list, device ID 6-10 
keyword entry (HEDMAN) 3-28 
list control block (LCB) 3-67 
lock and read only indicator 3-222 
message entry (HERRPG) 3-18 
nondisk statistical data recording 5-10 
null directory 5-15 
outboard recording 5-11 
parameters passed to 
UTKUSE subroutine 3-119 
UTVTOC subroutine 3-121 
password directory 5-16 
print parameter list 5-27 
processor address—BHDPAT 3-158 
pseudo instruction reference 3-228 
segment descriptor field 5-22 
source module labeling conventions 4-7 
statement 
address 3-159 
branch (#SFSYN) 3-32 
symbol types in BDSYMB 3-164 
system 
communication area(NUCLES) 5-2 
help text file 5-25 
System/3 BASIC components directory 4-1 
trace 3-196 
volume label 5-12 
: volume table of contents 5-14 
temporary disk work area allocation 2-6 
terminate 
compiler PMC generation phase 3-180 
print using (mask X’10’) 3-220 
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terminating 
character (EOS) of current segment 3-160 
pseudo instruction 3-201 
termination, DCALC 3-276 
test 
configuration record (#UCNFI) 3-129 
suspect tracks 3-126 
test and translate 
arithmetic constant (#SDSYN) 3-34 
character constant (#SDSYN) 3-34 
TEST usage in HUATRC 3-126 
text character pointer 
input parameter to BDSYMB_ 3-165 
output parameter from BDSYMB 3-165 
TKSCYL (UTKUSE) 3-119 
TKSYLN (UTKUSE) 3-119 
trace 
bit 3-222 
FE program load 3-44 
line numbers subroutine—FZLINT 3-222 
mode, element unstacking 3-210 
mode reference list (input parameters) 3-195 
option (T), operating procedure 6-8 
table 3-196 
variables subroutine—FZVART 3-222 
TRACE keyword program—#KRUNI 3-91 
tracing labels during execution of 
ENTER+ function 3-273 
SIN function 3-273 
track 
format 3-7 
initialization (HUNIT) 3-135 
usage mask 
displacement 3-119 
general description 2-5 
utility program—UTKUSE 3-119 
utility program—#UCDIS 3-131, 3-132 
triple matrix function call (MF3) pseudo instruction 3-238 
TSMLES (SRCHEN) 3-115 
two-byte physical disk address 3-101 
two-star (**) library 
directory 5-11, 5-15 
general description 2-6 
type code, current BASIC statement 3-156 


UALLOC (#UALLO) 3-127 
UATRCK (#UATRC) = 3-125 
UCDISK (#UCDIS) 3-131 
UCNFIG (#UCNFI) 3-129 
UCPLIB (#UCPLI) 3-130 
UDISVT (#UDISV) 3-143 
UEXLIB (#HUEXLI) 3-133, 3-134 
UINERP~assign alternate tracks (#UINIT) 3-136 
UINITL (#UINIT) 3-134 
UINSEK—verify correct [ID on all tracks (#UINIT) 3-136 
UNASSIGN (#UATRC) 3-126 
unnormalized decimal number 3-266 
unpacked-decimal format, arithmetic 3-268 
unresolved 
operands (holes) 3-157 
virtual addresses in PMC generators 3-157 
unstack 
character element, (USC), pseudo instruction 3-254 
floating point element, (USF), pseudo instruction 3-252 
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3-254 
user 
file (filename), general description 2-6 
program data file format 2-8 
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